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ABSTRACT 


The purpose of this thesis is to develop and implement 
a language dependent pretty printer for the SPEC language. 
SPEC is a formal language БОЈЕ writing black-box 
specifications for components of software systems which are 
developed in the functional specification stage of software 
development. The pretty printer is a software tool used to 


format specifications to make them easier to understand and 


read. A computer program was written implementing the 
pretty printer design criteria. The program uses Kodiyak 
and was written as an attribute grammar. Included isa 


Е ОЕ 119  аптаг tor the SPEC language, the pretty 
printer program source listing, a representative sample of 
input used to test the pretty printer program and resulting 
output. . A significant result of this study is the 
conclusion that by abstracting this language dependent 
pretty printer it is feasible to use Kodiyak to create a 


language independent pretty printer generator. 


ДЕШІ 


Ха 


1 


TABLE OF CONTENTS 


ЛОМЕ ОТОС ЈО) оо ооооооооооооовоо озоооосоооооооооооос 
Ло (ОЛ ОЛЮИХИВӨ оссоооооооооооооооооосооооооооосооосоСс 
В. RESEARCH QUESTIONS ......... M coms 
Co SUMMARY OP ва ОМ 5 Ба ТЕТЕ 
ОНА А ION] Og SH coooocoooocoooosc оообос 
ВАФССЕ (ЦЭ (6) УНИ аи и 
A ДОН (СМ ее еее 
ВИНО ТОЛИКИ И елити 
1: Пезсрире шеги ot ко у2вкт TE 
ВО 2 тг. 

а Gexteal Scanner сс. 

Б. Attribute Declaration Sections 


c. Grammar and Attribute Equation 


ЗеСТ ОЕ ЛЕТ 

3. “OUEDUE (Procedures 22270 EE 
4. Using Kodiyak m 222000222222 2” 
PRED TY PRU NDE Ree ere ЕККУ КК ОЕ 
БРЕС. ос се слепо ли „==. 
1. The Event Model c Mc 
2. The 5РЕС Бапомадн и с К К КОККЕ 
a. кйпс сас ОО ЛД КККК О 


ЕР State Machines э 9.9 € € 9 € 9 9 в еге о а весео оге s 


iv 


10 


10 


nan 


18 


14 


37 


18 


21 


23 


23 


27 


28 


28 


29 


Ше. 


DESTOGNERUDOIMPDEMENTATIGON!US еее еси. TT 
Ы. SDESTGNOQUESTIONS ..55 "IT КК ECT 
E рес гс оч от ї  ш -У722,..2.-22-214243 

ас Еле репа тте EE... rm 

То епа БОРН ee є RES 

co ПРОБИ РИО 220220272222 5... .. 

Gey Comment: Sipe ......... 

BUENO WOkdSs e узлы. З 

2 Сепеза Бевтап І--цес ТТ ........ 

ЕТ Е... к. 
1,  Lengthgoi bine Decision -nik T eee 

2: Iudentatiopn ОеёстэтШэөп”: 5: аен 

За то чета тепаа Decisstbo а 

Д сошел ресїз тг УИ rn mn 

Бош Ке мого Decision онна 

Cee ВЕ DEPINITIONS И ена 
Ш бета а о ба И ИН еее, 

ЕТИШЕ сш = © сососососососососвсообобвоссовбобсовваог 

О Ба аи тај .... E I м є я є 

Мы ПЕ ОР ыо 
ее. 

6. Length ТОО cs 

De PRETTY PRINTER RULES yee ee + sn cle ЛК 
иво Е for Usingethe Pretty Printer ..... 


25 


Rules for Implementing the Pretty 
Printer .. 


23 
22 
34 
34 
34 
36 
36 
36 
27 
27 
зи 
33 
38 
39 
40 
40 
43 
43 
44 
45 
47 
47 
48 


48 


52 


a. Кеумогд RULG c то ТҮ. 52 


b. Terminal Rule... КККК КККК... к 58 

с. Nonterminal Rule... 7. ve rr 59 

d. Gomment Rule 0 62 

ту СОСО О  сооооооооосоосоосооооооооосоооооооооооос 65 
A. IMPACT OF DESIGN БЕСІЗ5ТІОМУ ..........-..-.... 65 
le “Glebal Parameters от ӨС ӨГ 66 

2 "Attributes 402002202 а 67 

3." СЕапцаваст ТЕЕ КЕКЕ 5272222. 67 

a “СӘППЕнен 22222222777 2227 ЕКОО КО 68 
ВЕРА ОРИ АЕР ЕЕ РУЛЕТИ ЕТО ЕС ТЕГЕ 68 
ји о ту ак сорте... ОООО 68 

Zo OVMCAR DELOS ни и гт 70 

3. Software Extensions С 72 

С. АПАБЕРТ- ЕВ Е И Л аи 73 
1. ВЕР К Р ЖКО УО 73 

2. Reađability 52502 з... 75 

3. Base of Мод асаа PaE 76 

D. APPLICATION EXTENSION E 20207 77 
1a Pretty BErinter Code Analysis а се летке 17 


2. Language Independent Pretty Printer .... 80 


APPENDIX A. SPEC . 2 Р С ТтГ 2. 88 
APPENDIX B Pretty Printer Code ........ 455222205. 105 
APPENDIX C Sample їйрший їєрший2 2 тг. M e 226 
LIST OF REFERENCES E ОООО ОО О О 220 
BIBLIOGRAPHY +. гс о ы К К К а и 222 


vi 


TIBMNRSALSDBESTRIBUTION LIST 


€ * * € * * * • * 9 * + е о о 


МИ! 


о о 9 9 * * € €* * * 9 » 


.10 


gabal 


212 


213 


.14 


Eo 


Binary Notation 


Nonterminals Wit 


LISTOOECEIGURES 


Example 222 .. о о 


heAssdjgneod АЕЕЕ Ве 222772 


Synthesyzed/rnherited Attributes 222222227227 70: 


Regular Expressi 


Integer and Stri 


ONUS соооооооооооооооооооооооооооо 


ше прес акавјлон Ехатрше c c 


Naming AttriburtesExamples 222222222272 


Available Operat 
If Then Else Sta 


Output Procedure 


ӨТӨ 2220222 REPETI 
tement е 


Examples... «Rc о 22 


Соптоп Вр оле АНЕ ба а А А ИУ гү 


Options Lista 
Function Example 
Machine Example 
Immutable Abstra 
Mutable Abstract 
Sample Outline . 
Comment Examples 


General Keywords 


9, 6$ € | 


СЕ рага туре те 
De шире не ТИТС 


Expression Keywords LE cm c 


Special Keywords 


Pretty Printer Attrwbutes по чн n гт. 


BCUrSOr апа Нспгзєє Нимашрї тг. 


Padding Example 


€ ө ө ө өе ө ө ө ө € ө ө ө с ө ө ө ө с о о о €* ө ө ө ө е е ө ө о о 


viii 


12 
14 
16 
16 
17 
ще 
20 
21 
28 
29 
31 
32 
35 
40 
41 
41 
42 
43 
44 


45 


221) 


ЭМЭ! 


ша 


213 


‚14 


SEND 


‚16 


13. 


‚18 


#17 


220 


221 


«22 


223 


Mom 


плачеле К.о CT л VIII VE 
В Ве... 
с реале 2... 222222222250 
Syntactically Incorrect Code Output Example . 
Е MOMS TE c.i Wo. rs в Ише. 
ок по the Code Example ............... VAS 
KeywordiRules and EXCeptEronS 0. оао. 


CL Terminal Symbols 
Symbol Values Different from Symbol Name .... 


CL Terminal Symbols 
Бот Маме Баме аз Symbol Value ............ 


Meermin al SYMBOLS о ааа: 


Terminal Symbol Rule and Length Check Sum 
SCRI ою ба оао Ао ыи алаа 


uocum Exceptions...» eu e er S 
Шела Symbol Examples .. esm e s mt m rem 
Меша | о ушее! Examples .................... 
ern crneHal Rule and Examples m 5665 
Е Ее: ню i ad tesis а ан аа 
РО ер В ае о. И ПИ иеа 
«отр бег -палее EXAMPLES .................... 
Нишког MESSAGES k a * sehr. es 
p a cOG SUC LSE TCS 66 «6 ee oe wise nea as 


срасез ....... ОООО КЕ ооооооооооооооороооо 


Фо о o 


сепега] 5утбој Сатедог1е5 ....................... 


Sbandsard Forms ..... Mk M, NONSE EE, ЕС 


Standard Forms Revised Without Comment Symbol 


ix 


46 


47 


48 


49 


50 


S 


54 


55 


56 


56 


58 


59 


60 


61 


63 


64 


69 


70 


ele 


73 


74 


78 


79 


81 


22120 


EIN 


ЕШ? 


Standard Forms Revised With Comment Symbol ...... 


Ргергосеввог ААА АА 00 


Language Independent Rules ........... 


Attribute Equation Generation Example 


* ө ө ө ө ө э ө • • • 


€ 9 * ө * ө ө ө ө ө € 


82 


84 


85 


86 


I. INTRODUCTION 


An expanding field of interest in computer science is 
that of software engineering. It is important to the 
development of software systems that critical work be done 
early in the design of software systems. Therefore the 
development of a functional specification is of great 
importance to the design enton EIDEM E | 
developed a formal language SPEC for writing black-box 
specifications for components of software systems in the 
functional specification stage of software development. To 
increase the readability of this code a software tool was 
designed to format SPEC. This thesis centers on the design 
and implementation of a language dependent pretty printer 


DUDHEChe SPEC language. 


A. OBJECTIVES 

The main objective of this thesis is to design and 
implement a language dependent pretty printer to format 
SPEC. Appendix A [Ref. 2] contains a listing of the grammar 
forawsPEC langusge. те содае коша зле | ргегву printer 15 
written as an attribute grammar. This code is then compiled 
using Kodiyak. The output of the Kodiyak compiler is the 


executable code for the pretty printer to format SPEC. 


Additionally, it із desired that the pretty printer 
code be easy to read and change. Since this is a research 
project code efficiency is not as important as code 
readability. It is essential that the pretty printer code 
operate correctly and that other researchers can understand 
and modify the code. 

The final objective is to try and take what is learned 
in this implementation, abstract it, and develop guidelines 
for a language independent pretty printer using Kodiyak and 
attribute grammars. These general guidelines are a direct 
result of the insight gained from the design and 
implementation of one pretty printer using Kodiyak and 


attribute grammar. 


B. RESEARCH QUESTIONS 

There are two research questions for this thesis. 
First, what are the underlying issues and decisions that 
must be made in the design and implementation of a language 
dependent pretty printer? Once these issues are identified 
what is their impact on readability, ease in modifying, 
portability and efficiency? 

Second, can a language independent pretty printer be 
developed from the methodology used in this thesis in the 
development of the language dependent pretty printer? Is 
the implementation regular enough to abstract general rules 


and guidelines or is the implementation based on many 


special cases and no general rules and guidelines are 


possible? 


C. SUMMARY OF FINDINGS 

The final output from the research conducted in this 
thesis is the implementation of a working language dependent 
pretty printer. Though it may not be optimally efficient it 
works correctly and the code 15 readable. Appendix B 
contains the pretty printer code listing and Appendix C 
[Ref. 3] contains sample input and output for the pretty 
pranter. 

Additionally, from the work done in the development of 
the pretty printer a set of general guidelines is developed 
for the design of a language independent pretty printer 
generator. This generator will need a preprocessor. Output 
of the preprocessor is transmitted to the Kodiyak compiler 
with the output from the compiler an executable code for the 
pretty printing of the language defined by the input to the 


preprocessor. 


D. ORGANIZATION OF STUDY 

Chapter II lays the theoretical framework for the 
design and implementation of the pretty printer. The 
details of attribute grammars, Kodiyak, pretty printers and 
SPEC are discussed. These four areas are heavily used in 
Chapter III and Chapter IV. Readers unfamiliar with these 


subjects will find this chapter necessary. 


Chapter III. explains  Сперзибебідпиєцеві тїопоенаноюмсв оно 
decisions Епа аве таде si chs implementation. 
Additionally an explanation of the attributes used to create 
the pretty printer are outlined. The final subject in this 
chapter is the general and specific rules for the pretty 
printer. A user of the pretty printer code needs only a 
working knowledge of the general rules. A person who is 
going to modify the pretty printer or wants more details 
will find the specific rules define the operation of the 
pretty printer. 

Chapter IV covers the conclusions of this thesis. The 
conclusions address the issues ОЕ Еће specific 
implementation and how this implementation can be extended 
to generate a language independent pretty printer generator. 
The lessons learned in the design of the language dependent 
pretty printer are abstracted to produce guidelines for the 
future development of a language independent pretty printer 


generator using Kodiyak and attribute grammar. 


II. BACKGROUND THEORY 


This chapter lays the theoretical framework for the 
design and implementation of the pretty printer. Tests ladies 
chapter details of the following four subject areas will be 
discussed: 

Attribute grammars 
Kodiyak 
(3) Pretty printer 
(4) SPEC 
Chapter III and Chapter IV of this thesis draw heavily 


on developments in these four areas. Readers unfamiliar 


with these subjects will find this chapter necessary. 


A. ATTRIBUTE GRAMMARS 

A grammar consists of a finite set of nonterminal 
symbols, a finite set of terminal symbols, a set of 
production rules and a start symbol. A language defined by 
a grammar is a set of strings consisting only of terminal 
symbols that can be generated by the grammar. [Ref. 4:p. 81] 
A nonterminal symbol is defined as a variable or a syntactic 
category [Ref. 5:р. 77]. A terminal symbol is defined as a 
symbol that can appear only оп the right-hand side of a 
ЕЕ Оз cule [Ref. 6:p. 97] ог as a primitive symbol of 


the language [Ref. 5:p.77]. 


An attribute grammar is an extension of a context-free 
grammar whose generated language includes syntax and 
semantics. A context-free grammar (CFG) is a four tuple G = 
(N,T,P,S) where N is the set of nonterminals, T is the set 
of terminals; P is the set of production rules and S is the 
start symbol [Ref. 4:pp. 84-85]. The syntactic part of the 
attribute grammar is typically a context-free grammar and 
the semantic part consists of a бес ot attributes 
associated with each symbol and a set of semantic functions 
used to evaluate the attributes' values in term of the 
syntactic tree [Refs 7: 5-.331)]- 

The attributes provide a means for expressing data flow 
in the derivation tree. They are associated with the node 
in the derivation tree and represent inputs and outputs of 
the nodes. The attributes of each node in the tree can be 
defined in terms of the attributes of neighboring nodes. 

An important feature of an attribute grammar is that 
some of the attributes are defined for nonterminals that 
appear on the right side of the corresponding production 
rule, while other attributes are defined when the 
nonterminal appears onthe left side of the corresponding 
production rule. This implies there are two types of 
Eu trs dde EE First, a synthesized attribute is based on the 
attributes of the descendants of the nonterminal symbol. 
Second, an inherited attribute is based on the attributes of 


the ancestors.  Synthesized attributes are always evaluated 


from the bottom up in the tree structure, while inherited 
attributes are always evaluated from the top down in the 
ен 01101016. [Ref. 8:p. 130] 

юм ште 2.1, from Knuth, shows an example of an 
attribute grammar which gives a precise definition of binary 
notation for numbers. This binary notation is based on the 
definition of the context-free grammar (as listed іп the 
left column of Figure 2.1). The terminal symbols are ".", 
LO vende Итне nonterminal symbols are "В", "Г" and "М" 
representing respectively bit, list of bits and number. A 
binary number is intended to be any string of terminal 
symbols which can be obtained from "N" by application of the 
production rules listed in the context-free grammar. [Ref. 


8:рр. 127-130] 





Syntactic Rules Semantic Rules 

В -> 0. Ув) - 0 

[EX EI У(В) = 2**s(B) 

ро» в v(L) = v(B), s(B) = s(L), 1(L)= 1 
Ll -> L2B 2011) v(L2) + v(B), S(B) = 5(11) 


ӘР (011) 21221(11)7-1112)-41 
N -> L V(N) = v(L), s(L) = 0 
nem. L2 м У = 12), 9161 = О, 
5(12) = -1(12) 
Note: "xx" symbolizes exponent 


Ll, 12 аге subscripted 


Figure 2.1 Binary Notation Example 





The right-hand сетил of Figure 22 перове те цио 
semantic rules. The semantic rules define all the 
attributes of a nonterminal in terms of the attributes of 
its immediate descendants. Values are ultimately assigned 
for each attribute. The three attributes used in this 
example are "v" for value, "1" Тог length and "5" for 
scale. Figure 2.2 gives an example of the association 
between attributes and nonterminals. Figure 2.3 1ists@ene 
synthesized attributes and the inherited attributes for this 


example. [Ref. 8:p. 130] 








Each B has a "value" v(B) which is a rational number. 
Each B has a "scale" s(B) which is an integer. 
Each L has a "value" v(L) which is a rational number. 
Each L has a "length" 1(L) which is an integer. 
Each L has a "scale" s(L) which is an integer. 
Each N has a "value" v(N) which is a rational number. 


Figure 2.2 Nonterminals with Assigned Attributes 












Synthesized Attributes Inherited Attributes 


v (B) 5 (В) 
У (5) 5 (1) 
1(1) 
Ус) 





Figure 2.3 Synthesized/Inherited Attributes 


The semantic rules may be used to give a "meaning" to 


strings of the context-free language. For any derivation of 


a terminal symbol "t" from "s" (the start symbol) by a 
sequence of production rules the derivation tree 15 
constructed. Then the attributes of this derivation tree, 
or parse tree, are evaluated. This process of attribute 
definition, which cam occur in any order, is applied 
throughout the tree until no more attribute values can be 
defined. The defined attributes at the root of the tree 
constructed give the "meaning" (or desired answer or output) 
of that derivation tree. [Ref. 8:pp. 132-133] 

Any attribute grammar can be composed of both 
synthesized and inherited attributes. Semantic rules that 
do not use inherited attributes can be considerably more 
complicated (along with being harder to understand and to 
manipulate) than semantic rules which allow both kinds of 
attributes. Synthesized attributes alone are sufficient to 
define any function of the derivation tree but, in 
practice, using both types of attributes leads to 
сте гаса јопз. [Ref. 8:p. 134} 

Appendix A [Ref. 2] lists the context-free grammar used 
Тин SPEC. No attributes are listed in this grammar. 
Appendix B lists the entire language Spec including the 


attributes for the pretty printer. 


B. KODIYAK 
The Kodiyak compiler is essential to the implementation 


of this pretty printer. A complete understanding of Kodiyak 


is not necessary for “the user of Ehe pretty ре посетено шисти 
implementor will be interested in the details. The 
following is a summary of the major points of Kodiyak with 
an emphasis on what is used in the actual code of the pretty 
printer. It covers the following topics: 
(1) Description of Kodiyak 
(2) Format 
(3) Output procedures 
(4) Using Kodiyak 
All of the points covered in the following section come 
directly from The Incomplleat AG User Us Шат келеме 
Manual [Ret. 9 "pp 2=25 ] o The following is a synopsis of 
the major points of this manual, enough to understand the 
code for the pretty printer but not all the details. If 
further or more detailed information is needed consult the 
user's guide mentioned above. 
l1. Description of Kodiyak 
Kodiyak is a language designed for constructing 
translators. It is modeled after Knuth's description of 
attribute grammars. The Кодіуак translator accepts a 
context-free grammar along with attribute declarations and 
equations, a scanner specification, and output declarations, 
and generates an executable translator. 
2 Еола 
The Kodiyak program is divided into three sections. 


The first section describes the features of the lexical 


scanner. The second section names the attributes 
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associated with each grammar symbol and declares their 
types. The third and final section describes the grammar 
and attribute equations which define the semantics of the 
trans lation. The sections are separated by the unique 
symbol double percent symbol ("%%") which is located on a 
line by itself. 

a. Lexical Scanner Section 

Each statement in the first section of the 
Kodiyak program describes the terminal symbols of the 
translation in some way. The two functions of this section 
are first, to specify the correspondence between the 
terminal symbols of the grammar and the input text, and 
second, to specify a set of operator precedences to be used 
in conjunction with the grammar. 

The lexical scanner section defines the set of 
substitutions to be performed on the input text. These 
substitutions are carried out using regular expressions. 
Input is scanned for text that matches these regular 
expressions. If a match is found then the corresponding 
text is deleted and replaced with the associated named 
terminal symbol (the symbol that occurs on the left-hand 
side of the regular expression). 

Figure 2.4 shows examples is regular 
expressions. An explanation of the symbols will assist in 
understanding this terminology. Thegwolone('":") indicates 


that a regular expression follows. The bar (АМ ны) indicates 


Да 


ап ОК. The symbol "Backslash" is a symbolic constant 
representing the "\" character. The input string "MOD" or 
the symbol "Backslash" is replaced by the atomic terminal 
symbol "MOD". The asterisk ("*") is an indication of zero 
or more repetitions. This means that the symbol {Blank}* 


represents zero or more instances of the symbolic constant 


ив али The plus sign ("+") is very similar to the 
asterisk except that it means one or more. The square 
brackets ("{", "]") mean an OR operation of the items inside 


of the brackets. Therefore [a-zA-Z] means one letter of the 
alphabet. The curly brackets ("{","}") are used to invoke 
substitution. The caret ("*") is used to mean everything 
except what follows it. Therefore [*"\\] means everything 


except the quotation mark or a backslash. 





"c € 
COMMENT jt рю 
AND Б 
мор : (Васкѕ1аѕћ) |мор 
: (ВТапк) + 
КАМЕ :[Letter)(alpha)* 
&define Char :([^"W]|(Backslash)(Quotej) 





*define Letter : [a-zA-Z] 


sdefine Int 2 СР 
%define Digit : [0-9] 
‘define Quote : |") 





Figure 2.4 Regular Expressions 





Another way to write regular expressions is 


also illustrated in Figure 2.4. It is a shorthand or 
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abbreviated way to write a regular expression. This second 
method uses "%define" аз the first symbol in the regular 
expression. Either format can be used with regular 
expressions and they both can appear in the code at the same 
time. There are three important rules about regular 
expressions that must be remembered to prevent errors. 
First regular expressions can occur on one line only. They 
may never extend beyond one typed line. Second, regular 
expression substitution may not be used outside of the 
regular expression section of the lexical scanner. Third, 
each regular expression must be defined before it can be 
used. 
b. Attribute Declaration Section 

The attribute declaration section of the 
Kodiyak program names the attributes associated with each 
grammar symbol and declares their types. In this version of 
the Кодіуак program the attribute declarations for all 
ТТА and named terminals are the only statements 
that may Бе present in this section. Future versions of 
Kodiyak may include other features. 

Kodiyak supports two primitive data types for 
the attributes. They are integers and strings. All simple 
mathematical functions are available for use with the 
integers (i.e., addition, Subtraction multiplication, 
division). The size (minimum or maximum value) of the 


integers will be machine dependent. Strings can be of any 
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length with the only associated function being 
concatenation. String constants are denoted by enclosing 
the string in double quotes. Any special characters must be 
preceded by the "\" symbol. Figure 2.5 shows an example of 


integers and strings and how they are declared. 










renames { 
indent : string; 
Бър майше : SUE 
bcursor =; integer; 
райе пате crim 
ecursor : integer; 


) 


Figure 2.5 Integer and String Declaration Example 








Kodiyak also supports higher order types called 
maps which can be used as symbol tables. These will not be 
discussed here since they are not used by 1115 
implementation of the pretty printer. 

Named terminal symbols are permitted to have 
user-defined attributes as well as two special predefined 
attributes *text and “line. They are initialized to the 
text of the terminal symbol matched and the line number of 
the input text that the match text occurred on 
(respectively). The attribute %text is used in the pretty 
printer but the attribute line is not. 

c. Grammar and Attribute Equation Section 
The third and final section of the Kodiyak 


program describes the grammar and attribute equations which 
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define the syntax and the semantics of the translation. The 
left-hand symbol of the first rule of the grammar section is 
саса обе the start symbol. The start symbol may not 
appear on the right hand side of any rule. 

An attribute value is named by naming the 
grammar symbol associated with it, a period and the 
attribute. The grammar symbol may be named in one of three 
ways. The simplest (if there are no repeated grammar 
symbols in the production) is use the name of the symbol. 
If that grammar symbol appears more than once then further 
distinction must be made. In this case, the name is taken 
to refer to the left-most occurrence of the grammar symbol. 
To name a grammar symbol which is not the left-most instance 
of that grammar symbol, the name may be indexed by a number 
in square brackets denoting which occurrence is desired. 
The left-most occurrence of the symbol is numbered one, the 
next left-most two, the next left-most three, etc. These 
ТЕБЕ tuo ways are used by the pretty printer. The third 
way is with the use of the dollar sign ("$") followed by 
the numerical position of the grammar symbol in the 
22112122 1115 15 mot Used™by the pretty printer. Figure 
2.6 gives examples of naming attributes. 

All of the functions/operators available for 
the integer and strings are shown in Figure 2.7. These 
functions include arithmetic, String manipulation, 


relational operators and logical operators. The left-hand 
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column of Figure 2.7 shows the symbol and the right-hand 


column provides the meaning of that symbol. 











expr: 
expr '+' UNUMBER 
$$.value = $l.value + s2i($3.%text); 
expr: 
expr '+' UNUMBER 
expr.value = expr[2].value + s2i(UNUMBER.%text); 
) 
ехрг: 


expr '+' UNUMBER 


expr[l].value = expr[2].value + 
s2i(UNUMBER[1].%text); 





Figure 2.6 Naming Attribute Examples 





addition 
multiplication 
subtraction 


х + 


division 
concatenation 
concatenation 

less than 

greater than 

equal 

not equal 

less than or equal 
greater than or equal 
and 


m 
PE 
пон, 


млл мА 
оп у! 


Note this a partial list showing just the operators 
used in this implementation. 





Figure 2.7 Available Operators 
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Опе final note about attribute equations 
concerns the if-then-else statement. Тпет”зүт оТосу” га 
little different from more programming languages. There are 


no keywords "if", "then" or "else" but only the symbols "- 


›" апа "#". For example, "IF A THEN B ELSE C" is written "A 
DEDE С”. Figure 2.8 shows a typical if-then-else 
Statement: Шїс еорєсЄёєз той осо: пе тоб ошжеце "=" 15 ще 
"if". The expression to the right of the "->" is the 


"then" and the expression to the right of the "#" is either 
(ен ел=е ог "else if" part. 


= 





ЇЕ ТНЕМ ЕГ5Е ЕХАМРГЕ 


comment[1].str value = comment[1].bcursor <= 0 
-» [COMMENT.&text,comment[2].str value] 
# ["\п",СОММЕМТ. &text, comment[2].str valueJ; 


IF THEN ELSE IF EXAMPLE 


comment[1].str value = comment[1].bcursor <= 0 
-> [COMMENT.%text,comment[2].str_value] 
* comment[1]. bcursor + len(COMMENT.%text) >= 80 
-» ["c",COMMENT.%text,comment[2].str_value] 
= ("\п", СОММЕМТ. &text, comment[2].str value]; 


Figure 2.8 If Then Else Statement 


3. Output Procedures 


To get any output from the Kodiyak program, such as 
the pretty printer does, the program must include a special 


side-effecting procedure. The side-effecting procedure with 


а 


its associated equations can only be used by the start 
symbol. There are five of these procedures available in 
Kodiyak and they are introduced by a percent symbol, 
followed by the name of the procedure and the arguments 
surrounded by parentheses. The pretty printer only uses one 
of the procedures, named "%output". Figure Oe Sa 


short description of the procedure as well as an example. 











%output(val:string) 
val 1S WEltten sto  ПЄТ- апаёє оор 
EXAMPLE 


start 
comment spec 





%output ([comment.str_value, 
Spec. eum yale |e 
comment.bcursor = 0; 


} 
ВЕ 





Output Procedure Example 





4. Using Kodiyak 


The Kodiyak compiler creates and processes many 


files among them are files which are processed by Yacc, by 
Lex and by the С compiler. There ane walsowtwo predetines 
files that the Kodivyak compi Valence pend=gon те irst is 
the Kodiyak library which contains functions for creating 
the parse tree, evaluating асггіригев, вопса епа ин 


strings, creating pairs, etc. This ваше 15 ооа nog 
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modified by the user. In this implementation this file is 
named kmain.c. 

The second file is the library. This file is a set 
св с functions. This is where the user can ада any new 
functions for the Kodiyak's use. In this implementation the 
function SPACES was added to the end of the file named 
КЕШЕ Б ИЄ, tie tale ішсе Пав іпкогпаріоп оп how to add 
functions. Note this is the only place available for the 
user to add his own functions. Creating a separate file and 
compiling it separately will cause syntax errors. 

The command to invoke the Kodiyak is "k sample.k". 


The file that handles everything (i.e., the driver of the 


software) is the file k. The name of the file to be 
compiled is sample.k in this case. Files to be compiled 
should have the extension ".К" ок the compiler may not 
асер 1t. Kodiyak programs may also have one other 
extension "m4" but that was not used in this 
tion 


ШЕ the program compiles without errors, the 
resulting object file (executable code) will be in the file 
named "sample". This is the name of the file submitted 
without the extension. Otherwise some crwptic error 
messages may be printed. Some common errors (as well as the 
type of error message printed and "what to do") are listed 
in Figure 2.10. There is also a set of options available to 


assist in debugging. The options are typed on the same line 


12, 


but immediately after the "К затрје.к". Figure 2.11 shows 


the options available. 


p 


ERROR 


Nr 


MESSAGE 





syntax error - which are mostly typing errors 

. missing attribute evaluation rules and 
circular evaluation rules 

3. table overflow errors 

4. memory storage exceeded 





PRINTED OUT 


l. an associated line number with the symbol 
that has the syntax error 

2. pair of grammar rules the parent of the error 
rule and the error rule 

3. statement "table overflow need more space" 

4. statement "exceeded memory space" 


WHAT TO DO 


l. find the typing mistake 

2. look for a missing attribute evaluation rule in 
the parent rule 

3. increase table size allotted 

4. increase memory space for given variable 


Figure 2.10 Common Errors in Kodiyak 





character 

They are 
conflicts 
As an 


"ucomment. 


One final note about error messages. The first 
of any identifier name should usually be ignored. 
tacked on by the Kodiyak compiler to avoid naming 
between Lex, Yacc, C and Kodiyak library routines. 
example, LE the error message printed 


padding is undefined" this should be read as 


"comment.padding is undefined". 
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-h Print out a list of legal options. 
fale Read input trom "tille"rather than the standard | 
input | 
| 
-е Continue attribute evaluation even after an 


error occurs. This is useful when debugging 
attribute definitions. 


-1 Print out all tokens as they are scanned. 

-y Print out all grammar rule reductions as they 
ОЕСЦЕ. 

-L Turn on LEX's debugging features. 

= Turn on YACC's debugging features. 

-с Generate a core image when a run-time error 
occurs 

-5 БЕРНШЕ CUE Storage Statistics aiter all 


attribute evaluations is completed. 


-o file Divert the standard output to "file". 


Елар кеса ти Options List 





С. PRETTY PRINTER 

A pretty printer is a software tool used to format 
programs to make them easier to understand and read. It 
takes character strings, called tokens, from an input source 
and prints them with aesthetically appropriate spacing and 
line breaks. The input is usually a text file or a parse 
tree. The two primary functions of the pretty printer are 
to insert spaces and linefeeds between tokens and to 


determine where and how to break lines. [Ref. 10:p. 119] 
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А syntax-directed pretty printer is a pretty printer 
that knows the syntax of a programming language and formats 
programs based on that knowledge. The syntactic structure 
and flow of control of pretty printed programs are made 
clear because the output medium shows the indentation and 
line breaks. [Ref. 10:p. 119] 

A syntax-directed pretty printer may be either language 
dependent or language independent. A language dependent 
syntax-directed pretty printer is written for a specific 
language. Since all constructs in the language are known, 
the pretty printer traditionally has been written as a large 
switch or case statement (for languages like Pascal and 
Lisp). If any changes are made to the language the code 
for the pretty printer musmebe  cevilced. | кей, 10. 120] 

The language independent syntax-directed pretty printer 
is designed to be used for any language. In this case ne 
knowledge of any particulars of a language are used in 
constructing the pretty printer. This version of a pretty 
printer must be given information about a language to 
produce a pretty printer for that language. In the long run 
it is easier and quicker to write one language independent 
pretty printer that can be used over and over again then to 
code a new pretty printer воминеастизрев ние алаас егати 
to be pretty printed. [Ret l0:p. 1200 

For either type of syntax-directed pretty printer there 


are common issues that must be addressed. Issues such as 
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where to add spaces and linefeeds, where to break a line, 
how to handle comments and what to do about syntax errors 
muer be Handled with great care [Ref. 10:р. 121). The 
pretty printer developed in this thesis is a language 
dependent syntax-directed pretty printer (referred to 
throughout this thesis as a language dependent pretty 
printer). The generalization of this implementation is 
discussed and general rules for a language independent 


syntax-directed pretty printer are developed but are not 


implemented. 


D. SPEC 
ӘБЕС 15 a formal language for writing black-box 
Specifications for components of software systems. SPEC 
uses the event model to define the black-box behavior of 
proposed and external systems. Black-box specifications are 
developed for the external interfaces of the system in the 
functional specification stage of software development, and 
for the internal interfaces in the architectural design 
Stage. Discussion of the event model and the SPEC language, 
extracted from [Ref.l:pp. 3.1-3.15], follows. Appendix A 
[Ref. 2] contains a listing of the grammar for the SPEC 
language. 
1. The Event Model 
In the event model, computations are described in 


terms of events, modules and messages. An event occurs 
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when a message is received by а module at a particular 
instant of Seamer A module is a black box that interacts 
with other modules only by sending and receiving messages. 
A message is a data packet that is sent from one module to 
another module. 

Modules can be used to model external systems such 


as users and peripheral hardware devices, as well as 


software components. A module has no visible internal 
Structure. The behavior of a module is specified by 
describing its interface. The interface of a module 


consists of the kinds of events that can occur at the module 
along with its response to each kind of event. Each kind of 
event corresponds to a different of incoming message. Each 
response consists of the later events directly triggered by 
a given initial event. 

Any module accepts messages one at a time, ina 
well-defined order that can be observed as a computation 
proceeds. Message transmission is assumed to be reliable. 
Messages can have arbitrarily long and unpredictable 
transmission delays. The order of messages arriving is 
normally not under control of the designer. 

In the event model each module has its own local 
clock: The local clocks of different modules are not 
necessarily synchronized with each other. Each event occurs 
at a well-defined instant of time, which is the time at 


which the destination module receives a message, according 
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вошиеємом п local clock. The length of time between two 
events is precisely defined if both events occur at the same 
place. The length of time between two events at different 
locations can be estimated in terms of two readings of the 
same clock, but this is only an approximation because of 
unpredictable message delays in obtaining remote clock 
readings. The only kind of time interval meaningful in the 
event model is the duration between two events. There is no 
way to distinguish between computation delay and 
communication delay in the event model. 

Each message has a sequence of zero or more data 
values associated with it. The other attributes of a 
Мес забе аге 165 name, its condition and its origin. All of 
these attributes are single valued. Exceptions are modeled 
as messages by means of a condition attribute, which can 
take on the values "normal" and "exception". the weenet tion 
of a message Expressing a normal request for service is 
"normal". The condition of a message reporting an abnormal 
event somewhere is "exception", in which case the name of 
the message is the name of an exception condition. 

The response of a module to a message is completely 
determined by the sequence of messages received by the 
module since it was created. A module is mutable if the 
response of the module to at least one message it accepts 
can depend on messages that arrived before the most recent 


incoming message. A module is immutable if the response of 
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the module to every possible message is completely 
determined by the most recent incoming message.  Mutable 
modules behave as if they had internal states ог memory, 
while immutable modules behave like mathematical functions. 
A module is immutable if and only if it is not mutable. 

Each module has the potential e acting 
independently, so that there is natural concurrency ina 
system consisting of many modules. Since events happen 
instantaneously and the response of a module is not 
sensitive to anything but the sequence of events at the 
module, the event module implies concurrent interactions 
with a module cannot interfere with each other at the level 
of individual events. This non-interference must Бе 
guaranteed by implementations which require a finite time 
interval to trigger the responses to an event. The response 
of a module is under the control of the designer. 

In modeling concurrent systems it is sometimes 
ВЕБЕ ро Speech atomic прешао топло. Atomic 
transactions are non-interruptible sequences of events at a 
module. Once a module starts an atomic transaction, it 
cannot accept any messages that are not part of the 
transaction until it is complete. Atomic transactions are 
sometimes needed to specify non-interference between 
concurrent sets of activities involving chains of multiple 
events at the same module. Atomic transactions must be used 


with care because they can lead to deadlocks if the 
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protocols of the modules involved in a transaction аге not 
compatible with each other, and can lead to starvation if а 
transaction goes on forever. 

Modules can be used to model шген cand 
distributed systems, as well as systems consisting of a 
single sequential process. The event model helps to expose 
the parallelism inherent in a problem, because the only time 
orderings specified are those which are unavoidable and are 
agreed on by all observers. 

Events can be triggered at absolute times. Such 
events are called temporal events. Temporal events are the 
means by which modules can initiate actions that are not 
СЕЕ СЕБИ еБреп5еБ со external stimuli. Formally a temporal 
event occurs when a module sends a message to itself ata 
time determined by its local clock. Unless explicitly 
stated otherwise, there may be an unpredictable delay 
between the time when the message is sent and the time when 
it is received, just like for any other message. 

2 “Шше БРЕС Language 

The SPEC language uses first order logic for the 
precise definition of the desired behavior of modules. The 
Spec language provides a means for specifying the behavior 
of three different types of modules: 

(1) Functions 


(2) State machines 
(3) Types 
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Each of these types of modules is described in the 
following pages along with examples of each type of module. 
а. Ешреетоше 
Function modules are immutable and calculate 
functions on data types, where "function" is interpreted as 
in standard mathematics. Usually function modules provide 
only a single service and hence accept anonymous messages. 
Figure 2.12 gives an example of the specification for a 


square root function. 





FUNCTION Square ове ресе ке 
WHERESprecusuoOnS NO 


MESSAGE (x:real) 

WHEN x>= 0.0 

REPLY (y:real) 

WHERE y >= 0.0 & approximates (y*y,x) 
OTHERWISE REPLY EXCEPTION imaginary Square root 


CONCEPT approximates (rl r2:real) 
--True if ri is a sufficiently accurate 
--approximating of r2. 
--The precision is relative rather than absolute 
VALUE (b:boolean) 
WHERE bs» abs (r1 — r2)/r2)8.- precjsdon 
END 





Note: "--" introduces a comment and all keywords in 
Spec appear in all capital letters 


Figure 2.12 Function Example 





b. State Machines 
A machine is a module with an internal state, 


i.e., machines are mutable modules. Figure 2.13 shows an 
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example of a machine. The behavior of the machines is 
described in terms of a conceptual model of its state, 
rather than directly in terms of the messages that arrived 
in the past, because descriptions in terms of sucha 


conceptual model are usually shorter and easier to read. 


— = 


| MACHINE inventory 
--assumes that shipping and supplier are other modules 
STATE (stock:map(item,integer)) 
INVARIANT ALL (i:item::stock[1] >= 0) 
БАУ АВБ (1:226т::25Ю0СК|Т1) = 0) 





MESSAGE receive (i:item,q:integer) 
ее а shipment from a supplier. 
WHEN q > 0 
TRANSITION stock[1]-*stack[i] * q 
--Delayed responses to backorders are not shown. 
OTHERWISE REPLY EXCEPTION empty shipment 


MESSAGE order (io:item,qo:integer) 
--Process an order from a customer. 
WHEN 0 < qo <= stock[io] 
SEND ship (is:item, qs:integer) TO shipping 
WHERE iS = lo, qs - qo 
TRANSITION stock[io] + qo = *stock[io] 
WHEN 0 < qo > stock[io] | 
SEND ship (is:item, qs:integer) TO shipping | 
WHERE is = is, qs = stock[io) 
SEND back_order (ib:item, qb:integer) TO supplier 
WHERE ib - io, qb + 45 = до 
TRANSITION stock[io] = 0 | 
OTHERWISE REPLY EXCEPTION empty order | 
END 





| 
| 
Bigume 2.13 Machine Example | 


C. Types 
A type module defines an abstract data type. 


An abstract data type provides many services therefore the 
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messages of a type module usually have a name. An abstract 
data type consists of a set of instances and a set of 
primitive operations involving the instances. The instances 
are the individual data objects belonging to the type. The 
instances of an abstract data type are black boxes. The 
properties of the instances are not visible directly, and 
can only be observed and influenced by means of the 
primitive operations. The properties of an instance are 
determined by the primitive operation that created the 
instance and the sequence of primitive operations applied 
after it was created. 

Date types are either mutable or immutable. 
For immutable types the set of instances and the properties 
of each instance are fixed. Operations producing instances 
of the type are viewed аз selecting members of this fixed 
set. Figure 2.14 is an example of an immutable abstract 
data type. 

The state of a mutable data type consists of a 
set of instances which have internal states. The initial 
state of a mutable type is an empty set of instances. 
Mutable types have operations for creating new instances, 
and usually also operations that can change the properties 
of an instance once it has been created. An example of a 
mutable abstract data type with immutable instances is the 


Set of unique identifiers for the objects in a database. 
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TYPE rational 

INHERIT equality {rational} 

MODEL (num den:integer) 

INVARIANT ALL (r:rational::r.den -= 0) 


MESSAGE ratio (num den:integer) 
WHEN den -- O 
REPLY (r:rational) 
WHERE r.num = num, r.den = den 
OTHERWISE REPLY EXCEPTION zero denominator 


MESSAGE add (x,y:rational) OPERATOR + 
КЕБ Ү (r:rational) 
МНЕВЕ г.пит x.num*y.den+y.num*x.den, 
пе чеп х.деп*^у.деп 


MESSAGE multiply (x y:rational) OPERATOR * 
REPLY tr:rational) 
WHERE r.num - x.num*y.num, r.den - x.den*y.den 
MESSAGE equal (x y:rational) OPERATOR = 
REPLY (b:boolean) 
WHERE b <=> (x.num*y.den = y.num*x.den) 
END 


те. 2,4 Immutable Abstract Data Type 


An instance of a mutable data type is very 
Similar to a state machine, except that the state machine is 
ЕВЕ created at the start of the computation, while 
the instances of a mutable data type are created as a 
computation proceeds. A state machine has exactly one 
instance, while a mutable data type can have any number of 
instances. Figure 2.15 is an example of а specification of 


a mutable data type. 
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| TYPE queue {t:type) 

INHERIT mutable {queue} 

| --Inherit definitions of the concepts new and defined. 
| MODEL (e:sequence) 

| -The front of the queue is at the right end. 

| INVARIANT tue 

--Any sequence is a valid model for a queue. 





MESSAGE create 
--A newly created empty queue. 
| REPLY (q:queue(t)) WHERE q.e - [] 
|  TRANSITION new(q) 


MESSAGE enqueue (x:t, q:queue(t)) 
| --Add x to the back of the queue. 
TRANSITION q.e = append([x], *q.e) 


| MESSAGE dequeue (q:queue{t}) 

--Remove and return the front element of the queue. 
WHEN not_empty (q) 

REPLY (X:t) 

ТКАМЭТТТОМ *а.е = append (q.e,[x]) 

OTHERWISE REPLY EXCEPTION queue underflow 


MESSAGE not empty (а: ачече(1)) 
--True if q is not empty. 
| REPLY (b:boolean) WHERE b 4-5 (q.e -- (1) 
| END 


| Figure 2.15 Mutable Abstract Data Type 
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III. DESIGN AND IMPLEMENTATION 


The actual design and implementation for the pretty 
printer was motivated not only on the specific application 
to this particular language but also by the desire to 
generalize the solution to apply to other languages. te LS 
highly desirable that what is learned from this particular 
case can be extended to the design of a language 


independent pretty printer. 


A. DESIGN QUESTIONS 

A language dependent pretty printer is a software tool 
to increase the readability and understandability of a 
specific formal language. In this light the design 
questions must be centered around increasing both the 
readability and understandability of Spec (the language used 
Моши = application). 

One important constraint related г ІіПпіе Specific 
application must Бе considered carefully. The Kodiyak 
compiler cannot be changed. There are provisions to add 
features to the compiler but the overall design and 
implementation of the Kodiyak compiler is fixed. Therefore 
any design decisions must not require any modifications to 


the Kodiyak compiler itself. 
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TE Spectra Design Issues 


There are five considerations specific to this 


implementation that must be addressed. They are: 


(1) Length of each line 

(2) Standards for indentation 
(3) Token length 

(4) Comments 

(5) Keywords 


a. Line Length 
The length of the line defines the maximum 
number of characters that can be printed on any given line. 
This length can be chosen regardless of the width of the 
output medium but must permit the maximum number of 
characters to all be printed within the output medium's 
width. Depending on the implementation this can be either a 
global constant or an input parameter. 
b. Indentation 
Indentation, as applied to computer programs, 
groups together lines of related code. An example in the 
English language of indenting is a formal outline. There 
are major topic headers. Under each major topic header is 
subtopic headers with each subtopic being subdivided 
(depending on how detailed the outline 15). Pigure 3. us 
an example of a simple formal outline. 
As Figure 3.1 shows indentation makes the 
structure easy to see. Related items all start at the same 


dis tance БЕСІ ый Шр margin. As the number of 
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subdivisions grow the longer the indentation (relative to 


the left margin). 





i Introduction 
a. Software engineering 
1. General introduction 
b. Functional specification 
1. Nonformal 
2. Formal 
(a) Spec Language 
II. Background 
а. Attribute grammar 
То» Бе ЕКЕШН 1 on 
2. Purpose/role 
3. Attributes in general defined 
(a) Synthesized 
(b) Inherited 
b. Kodiyak 
1. Definition 
2. Format 
So. Semantics 





Figure 3.1 Sample Outline 


In computer programs how much to indent related 
lines is an important question. Using too many spaces for 
indenting can easily run lines of code off a page. On the 
other hand not using a wide enough indent does not’ show the 
structure of the code and decreases readability. A 
compromise must be made between readability and losing lines 
of code off a page. The standard for program code is 
between two and five spaces for indenting each subdivision 


of related lines of code. 
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C. Token Length 
Token length is the actual length of any token 
used in the language. One assumption that should be made is 
that no token is longer than the maximum number of 
characters allowed on one line. 
d. Comments 
Comments are added to provide documentation to 
the code and also explain what the code is actually doing. 
Therefore it is extremely helpful to have comments disbursed 
among the lines of code. For readability comments should 
not appear between code segments that are on the same line. 
The particular language implemented will specify the 
allowable placement of comments and how the comments are 
identified. 
e. Keywords 
The final consideration is keywords. Does the 
language contain keywords? If so, how are they to be 
distinguished? Are they unique (i.e., reserved) or can the 
programmer use a language keyword with a totally different 
meaning? Do keywords have special format? Some of the 
possibilities are: 
(1) all capitalized with the rest of the code lowercase 
(2) all capitalized with the rest of the code a 
combination of lowercase and uppercase 


(3) underlined 
(4) proceeded by a special character 
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2. General Design Issues 


When considering the specific questions generic 
rules should also be a consideration. Can" this specific 
implementation be easily modified to handle different/slight 
modifications? For example if the line length is increased 
will this radically effect the software or is it a very easy 
change? Additionally, can more features be added if 
desired? Can debugging aids be added to the already 
existing software? Will any modifications still be 
compatible with the existing software? Will added features 
effect the original code causing a revision? If these added 
features cause the original code to be revised, how much 
work is involved and are the added features worth the added 


work? 


B. DESIGN DECISIONS 
The decisions that were made for this specific 
implementation concern the questions raised in the previous 


pages. They are: 


пре егсьб ої а line 
(2) Token length 

(3) Indentation 

(4) Comments 

(5) Keywords 


l. Length of Line Decision 
The length of the standard line for this 


implementation is 80 characters. It makes по difference 


whether the output from the pretty printer is printed on 8 


1/2" paper or the wider 14" paper. This print out will fit 
on either size of paper which allows for more flexibility in 
what printer and paper is used. The only drawback to this 
decision is that if the wider paper is used the right 5 1/2" 
of the paper will not be utilized. 
2. Indentation Decision 

The standard indentation is always three blank 
characters. As each sentence in the language is subdivided 
(broken down into the grammar rules) the indentation is 
expanded by an additional three blank characters. Three is 
a fairly reasonable number between the standard, in computer 
science, two and five spaces. It allows the reader's eyes 
to see what sentences and parts of sentences are all related 
at the same level. Additionally, there is not too much 
indenting (i.e., using five blank characters) so that if a 
lot of subdividing (or recursion) occurs the indenting will 
not run the print out off the page. 

3. Token Length Decision 

Опе necessary assumption made by this 
implementation is that the token length for any token will 
not exceed the maximum line length. Any token greater than 
80 can never be printed with the restriction placed on this 
implementation. If the line length is increased then the 


maximum token length can also be increased. 
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4. Comment Decision 

Comments are allowed to be опе line or multiple 
lines long. Comments can come at the end of a line of code 
filling the space until the right-hand margin is reached, or 
can be one line long starting at the left-hand margin, or 
can extend over several lines with each new line flush with 
the left-hand margin. 

The one restriction on a comment is that it is 
always started with a special character and its total 
length (including the special character) is less than or 
equal to the line length. For this implementation the 
special character to introduce a comment is "--". 

For a comment extending beyond the line length it 
must be broken up into two lines each starting with a 
special character. If this is not done by the user part of 
the comment may be lost when it is printed. It is important 
to emphasize that it is the user's responsibility to insure 
that comments are not longer then 80 characters since this 
pretty printer implementation assumes a single comment will 
fit on one line (80 characters or less). 

For output the special comment character is always 
followed by one blank character. If a comment comes at the 
end of a line of code the pretty printer will place two 
blank characters before the special character. If the 
comment starts a new line there will be no proceeding blank 


characters. Figure 3.2 shows examples of comments. 
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ШЕ 
-- This comment is a single line comment. 
Du 
expression = exp + exp -- Comment following code 
за 
expression = exp + exp -- Comment following code 
-- but this time code extends more than one line. 
als 


-- This is a sample of a multiline comment with 
-- the first line being flush with the left margin. 


Figure 3.2 Comment Examples 








5. Keyword Decision 
All keywords in the output are capitalized. In 


this implementation there are three types of keywords. Тһе 
importance of these three types will be explained in more 
detail later. Figures 3.3, 3.4 and 3.5 show the three 
types of keywords. All three categories of keywords are 
typed in all uppercase letters with the difference coming in 


the indentation rules related to the keywords. 


C. ATTRIBUTE DEFINITIONS 

The design of the pretty printer centers around the 
selection of attributes. The goal of the design is to 
create a software package that produces a formatted output 
that is readable and reflects the structure of the original 
code. The format of the input must be irrelevant to the 
pretty printer. It must also be noted that the input must 
be syntactically correct for the pretty printer to operate 


Correctly. 
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ЕОМСТТОМ 
ЕМО 
МАСНТМЕ 
ТОРЕ 
DEFINITION 
INSTANCE 
INHERIT 
HIDE 
RENAME 
IMPORT 
FROM 
EXPORT 
MESSAGE 
WHEN 
OTHERWISE 
CHOOSE 
REPLY 
GENERATE 
SEND 

TO 





ITERATOR 
TEMPORAL 
EXCEPTION 
THEN 

ELSE 

ELSE IF 
VALUE 

DO 

ТЕ 
TRANSACTION 
INITIALLY 
INVARIANT 
STATE 
MODEL 
CONCEPT 
FOREACH 
SUCH 
TRANSITION 
VIRTUAL 
WHERE 


Ещшашее 1223 General Keywords 


шанг м м | 


| 


ТІМЕ ALL 
DELAY SOME 
PERIOD NUMBER 
ALL SUM 
PRODUCT SET 
MAXIMUM MINIMUM 
UNION INTERSECTION 
NANOSEC MICROSEC 
MILLISEC SECONDS 
MINUTES HOURS 
DAYS WEEKS 
OPERATOR 


Figure 3.4 Expression Keywords 
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Figure 3.5 Special Keywords 





The attributes will define the language dependent 
pretty printer. There should be as few attributes as 
possible with each limited to one specific function 
therefore making each very limited in scope. All the 
attributes can be one of two types: synthesized attributes 
or inherited attributes. Synthesized attributes are based 
on the attributes of the descendants of the nonterminal 
symbol. Inherited attributes are based on the attributes of 
the ancestors. Synthesized attributes are evaluated from 
the bottom up in the tree structure, while inherited 
attributes are evaluated from the top down. [Ref. 8:p. 130] 

The pretty printer will need values for the print head 
position, lengths of symbols, values for indenting and the 
actual string that will be printed. With these ideas in 
mind this implementation utilizes six attributes as shown in 
Figure 3.6. 

The type of attribute, the type of value the attribute 
is and a definition (with examples if necessary) of each 
attribute follows. Remember that each attribute has one 


unique purpose which is very limited in scope. 
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АТТКТВОТЕ DEFINITION 
bcursor beginning cursor position 
eeursor end cursor position 
padding blank spaces to pad beginning of line 
indent indentation 
str_value string value 
length number of characters long 


насшке 3.6 Pretty Printer Attributes 





l. Bcursor 
Beumsorewsoshort tor beginningwNeursor position. It 
is the column position at which the left-most character of a 
Enoduebuonerule will be printed. This is an inherited 
attribute with an integer value. As the print head moves 
across the paper from left to right the value of bcursor 
will increase from one to the maximum line length (in this 
implementation maximum line length is 80). Figure 3.7 shows 
examples’ of bcursor. 
2. ПЕСПЕЗОЕ 
poursor is short for end cursor position. It is 
the column position at which the right most character of a 
production will be printed. This is a synthesized 
attribute with an integer value. This attribute can range 
in value from one to the maximum line length (in this 


implementation line length is 80). The ecursor of any rule 
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is the  bcursor of the next rule in the parse tree. Figure 


3.7 shows the interplay between bcursor and ecursor. 





act lone usr 
EXCEPTION parametrized папе 


parametrized name.bcursor=action list.beursor+10(*); 
action list.ecursor = parametrized name-ecursor, 


) 


message header 
optional exception optional name formal arguments 


optional exception.bcursor - message header.bcursor; | 
optional name.bcursor - optional exception.ecursor; 
formal arguments.bcursor - optional name.ecursor; 

message header.ecursor - tormalwarcUNSDnrscecupsom. 


) 


(*)10 is the number of characters in the word 
EXCEPTION plus one 





Pigu Ge sore, Bcursor and Ecursor Examples 





3. Padding 


Padding is short for necessary blank spaces to pad. 
It is a string of blank spaces to put at the beginning of a 
new line when the current line must be split because it is 
longer than the maximum line length. This is an inherited 
attribute with a string value of blank characters. The 
value of the attribute can range from zero blank characters 
to the maximum line length. Figure 3.8 shows an example of 


the implementation of the padding attribute. 
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instance 
:optionally virtual INSTANCE parametrized name = 
parametrized name comment hide renames END 
parametrized name[1].padding - 
[spaces(optionally_virtual.ecursor),spaces(9)];(*) | 
parametrized name[2].padding - 
parametrized name[1].padding; | 
hide.padding = hide.indent; 
renames.padding = renames.indent; 
) 
(*)spaces(9) is a function that produces a string of ate) 
blank characters | 


Figure 3.8 Padding Example 


4. Indent 

ШӘСЕП> shert for "wndentatyon? It is a string of 
blank characters associated with each nonterminal symbol of 
the same production rule. At each level of nesting the 
number of blanks associated with the value of the attribute 
indent increases by three. This is an inherited attribute 
with a string value. The string value for indent is the 
number of blanks associated with a nonterminal symbol. The 
length of the string can range from zero to the maximum 
length of line (in this case it also has to be a multiple of 
three so the maximum value would be 78). This allows all 
related lines to be easily seen and to maintain the 
structure of the code. Figure 3.9 shows an example of how 


the indent attribute is used. 
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function 

optionally virt intertace пеззавез сошеерез | 
| 
optionally virt їл ан шш 
interface.indent = [function.indent,spaces(3)](#); 
messages.indent 
concepts.indent 


} 


Їпє топ гс єт ара сее зли 
[ funetion. indent, spaces (3) ||; 


(жүзі апа "1" аге сушрейс го геркесзешенс елита 
concatenation of all values between the two symbols 


(#)Spaces(3) is a function producing a string of three 
blank characters 





Figure 3.9 Indent Example 





On the surface it appears that indent and padding 
are very similar and could be combined. This is not the 
case. Indent has a length that is always a multiple of 
three, a forced linefeed occurs with every indent and indent 
is only used with keywords. Indent is designed to show the 
nesting levels of all symbols from the same production. 
Padding, on the other Папа? сап тайцеё ia lengra rom Zero to 
the maximum line length, linefeeds are optional and is used 
only to assist in lines that are too long to fit on one 
line. Padding is designed to format long lines keeping all 
text of the long line grouped together. Figure 3.8 shows 


the interplay between the two attributes padding and indent. 
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5. Str value 
Str value is short for string value. The output of 
the pretty printer is the str value attribute of the start 
symbol at the root of the parse tree. ЕЕ ЕЕ ы 


terminal symbols derived from a production rule together 


месо spaces and linefeeds for formatted output. = на 
synthesized attribute with a string value. The length of 
кита це сап be of any value Ітоп 2гего то infinity. The 


str value of the start symbol will have the longest length. 
Бопваветассоп 15 цвей со put different str value attributes 
together. Figure 3.10 shows an example of the concatenation 


Gf Strings to obtain a value for str value. 





== = 


definition 
DEFINITION interface concepts END comment 


ШЕЕ ОБ 565 value = ["\n", definition. indent, 
ПЕТЬ", “interface. str value, 
Сащ рев сен маце, "и", “END comment. str value, 
у "п" в "Nn" 1 : 





ЕЕЕ Str value Example 





6.) кепаги 


Length is short for number or characters long. ТЕ 
is the number of printable characters in a given production 
rule. It is a synthesized attribute with an integer value, 
which is used to determine if an expression will fit on the 


remainder of the current line. Length is important because 
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it counts the actual number of characters ignoring possible 
padding, carriage returns, or line feeds. It is utilized by 
the expression production rule and production rules that 
have comment as one of their nonterminal symbols. Figure 


3.11 shows examples of the attribute length. 





expression 


: '$' expression 
( 
expression[1].length = 1 + expression[2].length; 
expression[2].bcursor = expression[1].bcursor + 1 + 
expression[2].length <= 80 
-> expression[1].bcursor + 1 
# len(expression[1].padding) + 1; 


ЕЛСШЕР а ши Length Example 








D. PRETTY PRINTER RULES 

The language dependent pretty printer has only a few 
general rules of interest to the user of the pretty printer. 
For an implementor or someone who wants to know more details 
about the pretty printer, the specific rules define the 
behavior of the pretty printer in detail. 

1. Rules) for Мэїтө єНе бгег БЕНЕН 

There are several general rules for the use of this 

pretty printer, First the input must be syntactically 
correct. If it is not correct the software will print out a 
syntax error message (it may or may not print out any of the 


input data). Figure 3.12 shows an example of what happens 
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when the pretty printer is supplied with syntactically 


incorrect code. 





1: MACHINE 
“Syntax error 


Note: 1 is the line number of the error | 
^ points to the point the syntax error 
was detected 


Figure 3.12 Syntactically Incorrect Code 
Output Example 





Secondly, the input can come from either a file or can 
be typed from the terminal. The input code can be in any 
format provided cS syntax 18 correcte For most 
applications it Seems quite reasonable for the user to 
already have a file created. It is extremely time consuming 
to manually enter the code each time, not to speak of the 
likelihood of typing mistakes which will force the user to 
start over again. It is highly recommended that the input 
pome from a file. 

The pretty printer is invoked in one of two ways. Тһе 
first method is by typing the file name of the compiled Spec 
code followed by a file name with a set of options. Тһе 
possible options that are available are shown in Figure 3.13 
Ret. Sepa 23-24]. 

The second method to invoke the pretty printer is to 
type the file name of the compiled Spec code, a carriage 


return and then manually enter all of the code for the 
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input from the keyboard. When finished type "control d" and 
the output will appear at the standard output. Figure 3.14 
shows an example of executing the pretty printer with both 
of the methods described. The name of the compiled Kodiyak 
code for the pretty printer is stored in the file printer 
and the name of the input file is SAMPLE (when one is 
specified). An explanation of the different commands 


invoked follow Figure 3.14. 


| 
-h Print out a list of legal options. 


| 
file Read input from "file"rather than the standard 
іпри 


-е Continue attribute evaluation even after an 
error occurs. This is useful when debugging 
attribute definitions. 





-1 Print out all tokens as they are scanned. 

-y Print out all grammar rule reductions as they 
Occur. 

-L Turn on LEX's debugging features. 

-Ү Turn on YACC's debugging features. 

-C Generate a core image when a run-time error 
occurs 

-S Print out storage statistics after all 


attribute evaluations is completed. 


-o file Divert the standard output to "file". 





Figure 3.13 Printer Options 
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printer SAMPLE 


B 
printer SAMPLE -o OUTPUT | 
| 
с | 
printer -h 
D | 
printer SAMPLE -y | 
E 


printer | 
| 


Part A invokes the pretty printer using the input file 
SAMPLE and the formatted output will be printed to the 
standard output. Part B invokes the pretty printer using 
the input file SAMPLE and the formatted output will be sent 
to the file OUTPUT. Part C invokes the pretty printer but 
in this case a list of the options that are available will 
be printed. The, List printed is similar to Figure 3.13. 
Part D invokes the pretty printer using the input file 
SAMPLE but in this case it will print out all grammar rule 
reductions as they occur. This may assist in diagnosing 
syntax errors. Part E invokes the pretty printer with the 
input coming from the terminal. The user must type in the 
necessary code followed by a "control d" to exit. Output 


will go to the standard output. 
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2. Байез КЫЕН шешеп не Еке Ее е ЖЕЕ ей 

The above section looked at the general rules for 
the successful operation of the pretty printer. Those are 
the only rules the user needs to know to use the pretty 
printer. An implementor or someone who may want to know 
more details will be interested in the specific rules for 
the pretty printer. There are four specific implementation 
rules. These rules with their guidelines and exceptions 
explain the complete operation of this language dependent 
Pretty printer: The four rules that will be explained in 
detail deal with: 
Keywords 
Terminal symbols 


Nonterminal symbols 
Comments 


~ M MT те 


ШІ 
2 
S 
4 


ee ~ 


а. Keyword Rule 
Keywords are special reserved words in Spec. 
All keywords are capitalized. All the other tokens in the 
language can use uppercase or lowercase letters or a 
combination of the two, but all keywords are distinguished 
by the use of all uppercase letters. Also as noted earlier 
there are three types of keywords: 
(1) General keywords 
(2) Expression keywords 
(3) Special keywords 
The rule for general keywords states the output 


consists of a carriage return, line feed, current 


production rule indenting and then the keyword. The rule 
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for expression keywords states that these symbols are to be 
treated exactly the same as a terminal symbol. See the 
following section for the terminal symbol rule. 

А11 special keywords appear after a general 
keyword. RENAME always proceeds AS, IF always proceeds FI 
and DO always proceeds OD. For these special keywords the 
rule states if room allows the special keyword will appear 
on the same line as the general keyword otherwise the 
special keyword will appear directly beneath the general 
keyword (on the following line) at the same degree of 
indentation. 

The exceptions to the above three rules are few 
but are extremely important to the pretty printer. First, 
only the first general keyword is effected by the rule for 
general keywords when two general keywords appear one after 
the other. This saves an unnecessary carriage return and 
line feed. Second, all three rules are ignored when any 
type of a keyword directly follows a terminal symbol. In 
this case the rule for that keyword type will be followed 
шог ehe вкеумога will not fit оп the current line. 
Figure 3.15 summarizes the three keyword rules апа the 
exceptions to these keywords rules. 

b. Terminal Rule 

A terminal symbol is defined as а symbol that 

can appear only on the right side of a production rule [Ref. 


6:p. 97] or as a primitive symbol of the language [Ref. 5:p. 
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77] (i.e., cannot be reduced any further). Keywords by this 
definition are terminals but in this implementation keywords 


are considered a separate category of symbols. 





RULE 1 
The rule for a general keyword states the output 
consists of a carriage return, a line feed, an 
associated production rule indentation and the 
keyword (with the keyword all in capital letters). 


RULE 2 
Expression keywords are treated like terminal 
symbols. (See terminal symbol rule). 
| RUBE З 


All special keywords follow a general keyword. 

The special keyword appears on the same line as the 
general keyword if room permits; otherwise, the 
special keyword will appear directly beneath the 
general keyword at the same degree of indentation 


EXCEPTIONS 





о 
When two general keywords appear in a row only the 
first general keyword follows the rule for general 
keywords. This rule is ignored by the second keyword. 





When any keyword appears after a terminal symbol 
all three rules are ignored. The rules are only 
followed if the keyword will not fit on the current 
line. 


Pigure 1215 Keyword Rules and Exceptions 


In this implementation there are two types of 
terminal symbols. They are constant length terminal symbol 
(CL terminal) and variable length terminal symbol (VL 
terminal). The CL terminal symbols (those with symbol 


values different from their symbol names) are shown in 
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Figure 3.16 and the CL terminal symbols (those with the same 
symbol name and value) are shown in Figure 3.17. The VL 
terminal symbols involve the use of the built in attribute 
‘text. The six VL terminal symbols along with the way they 


appear in the language are shown in Figure 3.18. 


Name Value Name Value 
AND & ІРЕ =; 
OR | NOT ~ 
IMPLIES =) LE Є 
СЕ >= NE ~= 
NLT ~< NGT ~> | 
NLE ~<= NGE ~>= 
EQV == NEQV === 
ВАМСЕ 2 АРРЕМО | | 
ARROW -» MOD ХА 
ЕХР хх BIND T 


Figure 3.16 CL Terminal Symbols 
Symbol Values Different from Symbol Name 








The terminal symbol rule checks for the end of 
line. When a terminal symbol (either kind) is encountered 
an end of line check is done. This length check is to see 
if the maximum line length will be exceeded if the terminal 
symbol is added to the str_value. ОБИ лг ес 
terminal symbols can be divided into two cases depending on 
the value of the length check sum. If this length check sum 
is less than or equal to the line length than the value of 


the production rule attribute str value is the value of the 
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terminal symbol (depending on the terminal symbol it мау Бе 
concatenated with one blank character). If the length check 
sum is greater than 80 then the value of the production rule 
attribute str Ууалце 5 Ере Исопсавепе соии о аб авз є 
return, line feed, production rule padding and the value of 
the terminal symbol (depending of the terminal symbol it may 


be concatenated with one blank character). 





- < 
( 2 
) = 
: + 
г ж 
( 7 
) U 
2 1 
5 [ 
а ! 
# MOD 
IN 


касте а CL Terminal Symbols 
Symbol Name Same as Symbol Value 














Terminal Symbol Name Appearance in Code 
NAME NAME.%text 
INTEGER-LITERAL INTEGER-LITERAL.%text 
REAL-LITERAL REAL-LITERAL.%text 
CHAR-LITERAL CHAR-LITERAL.%text 
STRING_LITERAL STRING-LITERAL.%text 
COMMENT COMMENT .%text 


Figure 3.18 VL Terminal Symbols 
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The length check sum is computed in one of two 
ways depending upon which production rule is being used. If 
the terminal symbol (either kind) is not part of an 
expression production than the length check sum is the sum 
of the current cursor position, the length of the terminal 
symbol and one (for a blank space). Otherwise, if the 
terminal symbol (either kind) is part of the expression 
production rule then the length check sum includes the sum 
of the current cursor position, the length of the terminal 
symbol value, one (for a blank character) and the length of 
the symbol or symbol to the right of the terminal symbol in 
phe production rule. Figure 3.19 summarizes the general 
rule for the terminal symbols along with the rules for 
calculating the length check sum. 

There are three exceptions to the terminal 
symbol rule. First when a nonterminal symbol (a symbol that 
can be reduced) precedes a VL terminal symbol (which 
precedes a CL terminal symbol), the length check sum 
includes the length of the VL terminal symbol as well as the 
CL terminal symbol. 

The second exception to this rule is when CL 
terminal symbols appear іп pairs. The only CL terminal 
symbols this exception applies to are the right and left 
parenthesis and the right and left square bracket. The 
right parenthesis and the right square bracket do not cause 


a check for the end of line. 
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The general rule when encountering a terminal symbol | 
(both CL & VL) is to do a check for the end of the line. 


| 


LENGTH CHECK SUM <= 80 
str value - terminal symbol value (may have one blank 
character at end) 


LENGTH CHECK SUM » 80 
Str value" - [Carriage ес гт” one eed production 
rule padding, terminal symbol value] 
(may have one blank character at end) 


TERMINAL SYMBOL PART OF EXPRESSION PRODUCTION RULE 
length check sum = current cursor position + 
length of terminal symbol + 
(possibly one for blank space) 


TERMINAL SYMBOL NOT PART OF EXPRESSION PRODUCTION RULE | 
length check sum = current cursor position + | 
length of terminal symbol + 
length of rule(s) to the rule of 
the terminal symbol + 
(possible one for blank space) 


Figure 3719 Terminal Symbol Rule and Length Check 
Sum Calculation 








Theon exception occurs when a comment 
immediately precedes a terminal symbol (either kind). A 
check is first done to see if a comment exists. If a 
comment does not exist the general rule is followed, 
otherwise the production rule ге Уа 2 МЄ (00 2 85 се 
return, line feed, production rule padding and the value of 
the terminal symbol (depending on the terminal symbol may 


include one blank character). Figure 3.20 outlines the 
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three exceptions to the general rule. Figures 3.21 and 3.22 


show examples of the terminal symbol rule and exceptions. 


l. 





. Nonterminal symbol proceeding a VL terminal 
symbol (with the VL terminal symbol proceeđing 
a CL terminal symbol) 


length check sum = current cursor position + 
length of the VL terminal symbol + 
length of the CL terminal symbol + 
one (blank between terminal 
symbols) 


2. CL terminal symbols appearing in pairs 
(applies to ")" апа "|" only) 


These two symbols do not cause a end of line check 


3. Comment immediately precedes a terminal symbol 


If comment does not exist follow general rule 
else 
ва ил аде eara EE шев ІСІНЕ теса, 
production rule padding), 
terminal symbol value} 
(possibly one blank character 


Еташге 3:20 Terminal Rule Exceptions 








c. Nonterminal Rule 
The rule for nonterminal symbols is the easiest 
of all the rules. А nonterminal symbol in a production rule 
will specify the value of all attributes that its own 
production rule needs and those values of the attributes 
that its children's production rules may need. Depending on 


which nonterminal symbol is involved any or all of the six 
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А. Length check with expression production 


expression 
: NOT expression 


ехргенвБїон = а | ехргө епш &@ш Бен 
1 + expression[2].length <= 80 
-> (Тен, ёнркеввй ш эг үаТНӨ| 
# | "Ха", ,ехргеөватой 1) - рада те je 
ехргевззїоп| 21-55 Е 2 Уг11ё1. 
) 


B. Length check without expression production 


field list 
| < fiela ice сета 


( 
field list[1l].str value = 
field_list[2].ecursor + 2 <= 80 
=> aneas аа е ма ел E ES aT 
# | Езета 1152]. оба. N 7 | 
11614 118ө|Г 1 | граааало зета се решив еј | 
) 


C. Length check with first exception 


expression 

expression '.' NAME 

( 

expression[l].str_value = expression[2].ecursor + 

1 + len(NAME%text) <= 80 

=> ([@xpression| 2) Біг үзіне, МАМЕ Sex | 

# [expression[2].str value, ".","\n", 
expression[1].padding,NAME.%text]; 

) 


Figure 3.21 Terminal Symbol Examples 
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" ] 


| A. Length check with second exception 


actual parameters 
и" 


actual parameters.str value = 
gosbuslEparsuebterscpcursor + 0 < во 
EMT arg Pist v Sstrovelue."j wj 
й ["An",actual parameters. padding, noe 
акаш ср str avoue я 





) 
В. Comment before terminal symbol 
concept 
COCER Orma ipa type spec | 


concept.str value = formal pa.ecursor < 0* | 

-> ["NXn","Xn",concept.indent,CONCEPT, | 
formal _pa.str_value,"\n",forma_pa.padding, | 
шә type spec .strt value] 

* formal pa.ecursor з 2 <= 80 

ээ nou" concepterndent,cONCEPT. 
formal pa.str value,": ", 
tvpeuspec.str value] 

# fon Ant concept. indent, CONCERT, 
formal_pa.str_value,"\n",forma_pa.pađding, 
уре Spec SEN value]; 


Figure 3.22 Terminal Symbol Examples 


р ща 
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attributes that this implementation uses can be specified. 
Not all of the nonterminal symbols use all of the six 
attributes. Figure 3.23 shows some examples of how 
attributes are used with the nonterminal symbols. In the 
first example in Figure 3.23 the nonterminal symbol 
“name list” only needs two attributes Vande convene Sneed. 
only one attribute. In the second example in Figure 3.23 
the nonterminal symbol "interface" does not need or use the 
attribute indent but the nonterminals "imports", "inherits" 
and "export" need indent therefore the parent is passing 
along its value of indent to its children. 
d. Comment Rule 

The rule for a comment concern where a comment 
can and cannot be placed. This rule is language dependent. 
In Spec comments can occur after any nonterminal symbol but 
comments cannot occur immediately after any terminal symbol. 
See Figures 3.16, 3.17 and 3.18 for the list of CL terminal 
symbols and values and VL terminal symbols. There are two 
exceptions to this rule. First, a comment can occur after 
the CL terminal symbol that comes as the second in a pair 
(i.e., ")" апа ")" ) when the production rule that involves 
the CL terminal symbol does not have a nonterminal symbol 
immediately following the CL terminal symbol. Second, a 
comment cannot occur immediately after a keyword. Figure 
3.24 summarizes the comment rule and its two exceptions. 


Note this is strictly dependent on the language implemented. 
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A nonterminal symbol will specify the value of all 
attributes that its own production rule needs and 
those attributes that any of its children may need. 


EXAMPLE ONE 


hide 
: HIDE name_list comment 


Еее, БЕНЕЗОЕ = Нідйе.Бсптаок ғ 5; 

name list.padding = [hide.padding, spaces(5); 

comment.bcursor = name_list.ecursor; 

пе Е мате = ("\n "hide indent, "HIDE м, 
name list.str value, 
eomment.str value] 


) 
EXAMPLE TWO 
interface 
: NAME inherits imports export comment 
{ | 
inherits.indent = [interface.indent, spaces(3)]; | 
"export.indent = [interface.indent, spaces(3)]; 
imports.indent = [interface.indent, spaces(3)]; 





interface.str value = [NAME.%text, 
= inherits.str value, 
Ппровез = виа еј 
export.str_value, | 
comment.str value]; | 





вое 3.23 Nonterminal Rule and Examples 
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A comment can occur after any nonterminal symbol but 
cannot occur immediately after any terminal symbol 
(either kind). 


EXCEPTIONS 


А. А comment can occur after the CL 
terminal symbol ")" or "]"” if the production rule 
does not have a nonterminal symbol immediately 
following either of these CL terminal symbols. 


В. А comment cannot occur immediately after any 
keyword. 








Figure 3.24 Comment Rule 


У ee 
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IV. CONCLUSIONS 


The conclusions of this thesis address the issues of 
the specific implementation of one language dependent 
pretty printer and how this can be extended to generate a 
general purpose language independent pretty printer. What 
was learned through the development, design and 
implementation of this pretty printer can be abstracted, 
generalized and expanded to create a language independent 


pretty printer. 


A. IMPACT OF DESIGN DECISIONS 

The major impact on any and all of the design decisions 
relates to readability, understandability, portability and 
ease іп modifying. Can what was done for a single 
implementation be of any great value? The answer to this 
question is yes. Can all the rules and exceptions be 
abstracted and extrapolated? The issues surrounding the 
design decisions made in this particular implementation and 
the ability to extend what was learned center around four 


key ideas. These four key ideas are: 


(1) Global parameters 
(2) Attributes 

(3) Standardization 
(4) Comments 
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lo Global Pearemeters 

In the normal sense of global parameters, such as 
in a Pascal program, this implementation does not have any 
global parameters. There is no method available to declare 
a global parameter at the beginning of the program due to 
the tree like structure that is used in parsing and 
evaluating the pretty printer. On the other hand this 
implementation does have "global parameters" to a limited 
degree. The line length and therefore the right-hand margin 
is set on 80. Any reference to the right-hand margin is 
made in reference to this global parameter. One global 
change to the value 80 (with an editor) can globally change 
the width of the print out and thereby changing the value of 
the right-hand margin. 

The global indentation change can also be easily made. 
SPACES(3) is used throughout to handle the indentation. If 
the indentation width was changed to four, for instance, one 
simple global change with an editor could change all 
SPACES(3) to SPACES(4). 

The use of global parameters as explained above 
increases the portability of the code. Additionally, it 
increases the adaptability and ease of modification of this 
language dependent pretty printer to different users 
preferences and desires. The pretty printer code can also 
be modified to accept variable parameter values from the 


command line if the computer system utilized supports that 
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ВЕНЕ (пе. у"ретпвев -1 380, ргіпбег -є 4). In this case 
Kodiyak would have to be modified to support the option of 
command line inputs. 
2. Attributes 
There are only a small number of attributes. These 


Six attributes are: 


1 Bcursor 
02) ЕЕБЕЗОГ 
(3) Padding 
(4 Іпдепі 
ШЕП ЕГЕ value 
(6) Length 


Each attribute is unique and handles one specific 
well defined function. If one attribute (or the concept 
behind it) is changed or altered the other attributes will 
Mow be. atfeeted. This is rue for all except bcursor and 
ecursor. These two attributes go hand in hand and changing 
one will greatly affect the other. 

3. Stendards 

There is standardization of the implementation 
throughout the entire code for the pretty printer. With a 
given number of general rules and a few exceptions the 
implementation follows a fairly standard organization (i.e., 
each production rule is basically implemented in the same 
way). With standardization of rules generic rules can 
easily be derived from the specific rules. 

ши ааа ешо to standardization in the pretty 


printer code, there are also standards in computer science 
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that are adopted by the implementation. This includes the 
rule of thumb standard for the length of the standard 
indentation unit. 
4. Comments 
Allowing for freedom of style in comments allows 
comments to be almost any place within the code. Comments 
add tremendously to the overall readability of program code. 
The implementation allows for the widest variety of comments 
within reason. Within reason means that there are times 
when you do not want a comment. As an example a comment is 


not a good idea in the middle of a mathematical expression. 


B. EVALUATION OF THE PRETTY PRINTER 

The qualities of the pretty printer deal with the 
software, documentation and devices used in the actual 
development and execution of the pretty printer. The 
qualities to be concerned with center around the following 
three categories: 

) Kodiyak compiler 


(СЕ: 
(2) Syntax errors 
(3) Software extensions 


1. Kodiyak Compiler 
The Kodiyak compiler is a complex piece of software 
but when modifications were made there was no apparent 
change in the efficiency and no slow down in the processing 
time. To make а change to the compiler опе of its many 


related files (as shown in Figure 4.1) was modified and then 
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the compiler was recompiled. Recompiling is a small 


sacrifice when making changes to an extremely complicated 


piece of software. 











NAME PURPOSE 
Тоса111Б.С helper functions for the 
Kodiyak compiler 
man.entry Unix Programmer's Manual 
k software driver | 
Беше с library functions and C definitions 
kmain.c main routine for Kodiyak programs 
kodiyak.k Kodiyak translator 
kodiyak.m4 Kodiyak translator 
kscript executes the translator 
mac.m4 macros 
Figure 4.1 Kodiyak Files 





With everything that is good there are also some 
drawbacks. Changes to the compiler are easy to make, but 
sometimes it requires a change to the Kodiyak code with an 
associated recompiling of that code and other times the 
change requires a modification to the file that controls the 
overall execution of the Kodiyak compiler (file named k). 
Figure 4.2 shows some examples of these situations with the 
resulting actions needed to correct the problems. 

Another area of concern with the Kodiyak compiler 
is the error messages generated. Understandably the Kodiyak 
code and documentation was written by one person within a 
six month time frame. Even so the error messages generated 


are hard to understand and even harder to correct. There is 
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a lack of standardization when an error had to be corrected. 
The user has to search through the multiple related files 
(those listed in Figure 4.1) to find the solution to a given 
error. Once the correction to the error has been found the 


most obvious correction may not fix the problem. 





Table overflow 
Change the size of the table in file k 


Memory overflow 
Change the value of associated variable in 
file Ес! хе 


Figure 4.2 Compiler Change Examples 





As an example consider the following. An error 
appeared that stated "OUT OF XNODESPACE". Тһе solution was 
found in file kclib.c. The documentation [Ref. 11] stated: 

"The following definitions may be over-ridden from the C 
compiler's command line. This allows users to increase or 
decrease the space allocated to each data type according 
to his needs. CC -DXPAIRSPACE-50000  agprog.c -o agprog 
would give the user's program 50,000 pairs to use instead 
to the 20,000 allocated by default." 

This feature did not work as advertised. After 
trial and error the solution found involved changing the 
value of XNODESPACE in two separate locations in the file 
kclib.c and then recompiling the Кодіуак compiler. That 
solution was not written anywhere or even suggested. 

2. Syntax Errors 


Syntax errors are concerned with the errors in the 


syntax of the input code. These syntax errors can basically 
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be of two types. There are errors caused by typing mistakes 
and errors concerned with missing grammar rule(s) in the 
language. These syntax errors can be either easy or hard to 
Bind. 

When the Kodiyak compiler finds any type of error 
it doesn't guess what the user meant. It crashes and prints 
an error message. The difficulty involves tracking down the 
actual error. Figure 4.3 shows examples of typical error 


messages. 





l. Spelling or typing error 


1: MESAGE 
^Syntax error 


2. Grammar rule missing/Input does not match grammar 


3: MESSAGE FUNCTION 
^Syntax error 





Figure 4.3 Typical Error Messages 


pe — 


As Figure 4.3 shows the error messages can be quite 
СЕС. In all cases the error occurs somewhere after the 
place that the syntax error pointer points. The error in 
fact may be a several lines further down in the code because 
the language is parsed in a tree like structure. The error 
message pointer points to the production rule that the 
pretty printer code was parsing at the time the error 
occurred (the actual error can be a descendant of the 


peoduetion rule). 
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3. Software Extensions 

Software extensions are concerned with adding 
software to the actual Коа1уак software. The Kodiyak 
Software is quite adaptable and has allowed for user defined 
functions and applications to be added to the existing 
software. The only drawback to this is that the user 
defined software must be added to the end of an already 
existing set of library functions. Through experience it 
has been determined that if the user-defined functions are 
written in a separate file and declared in an option added 
to the file k (that directs the Kodiyak) incompatibility 
error messages will appear. If the same code is placed at 
the end of the file kclib.c the Kodiyak has no problems with 
the user defined functions and everything runs smoothly. 

One additional note about the user defined 
functions. This allows the user to write any type of 
function that is desired as long as it is written is C. 
With this implementation a new function (named SPACES) was 
created to change an integer into the corresponding number 
of blank characters. Writing a fairly efficient small loop 
function seemed quite easy until the code was compiled. 
Then the problem of incompatibility arose between the 
existing code and the new function written in C. To solve 
this compatibility problem an inefficient function was 
written to handle the conversion of integers zero through 80 


to a corresponding string of blank characters. If the line 
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length is increased above 80 the function SPACES will have 


to modified to handle all integer values greater than 80. 


С. ANALYSIS OF CODE 
The analysis of the pretty printer code has to look at 
three general areas. These three areas are: 
(1) Efficiency of the code 


(2) Readability/understandability of the code 
(3) Ease of modification 


Ша ЕЕ (ӨВ  10(5р) 

The efficiency of the pretty printer must not only 
look at the pretty printer code but also the Kodiyak 
compiler. The Kodiyak compiler was not written to be 
optimized. With the limited time that was used to design 
and write the code it is really amazing that it is as fast 
as it is. Figure 4.4 shows some statistics for file length 


compared with time to format and print the reformatted file. 


: 





FILE LENGTH (bytes) TIME (seconds) 

70 1.4 

AG 2.2 

457 EG 

819 8.8 
1594 GPS 
2706 а ЫТ) 
4275 46.8 
5428 62.0 


The time should be considered in relative terms and 
not absolute values 


Figure 4.4 Pretty Printer Statistics 
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Along the same lines the pretty printer was not 
written in any optimized form. The function SPACES is not 
efficiently coded. It is efficient in time but not in 
space. The most important point is that although it may not 
be efficient it works. Figure 4.5 shows a segment of the 
SPACES function. If efficiency is an important issue this 
function can be modified to improve its efficiency. Also, 
as stated earlier, if the line length is increased this 


function will also have to be modified. 





xstring vspaces (lenstr) 
int lenstr; 
( 
Int x 
| x = lenstr; 
switch(x) 
( 
case 0 : return (xstring) ""; 
break; 
case l : return (xstring) "Os 
break; 
case 2 $; return (xstring) "чно 
break; 
case 3 : return (xstring) " Це 
Бкеак; 
default mi return (XSCring) uu; 
break; 
) 
) 
Figure 4.5 Spaces 
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2. Readability 

Readability is concerned with the user being able 
to read the code for the pretty printer and without too much 
effort understand exactly what is going on. Increasing the 
code's readability is the fact that there are only six 
attributes each with a unique function that does not change. 
Additionally, standard rules are followed and there is a 
standardization among the implementation of the production 
rules. This basically says if the user can understand one 
production rule he can probably understand the majority of 
them. There are a few special rules (and some exceptions) 
that may take the user a little longer to understand but 
overall the pretty printer is fairly straight forward. 

Since it has few attributes and only uses simple 
mathematics and string concatenation the code is fairly 
simple. Probably the most complex notation used involves 
the if-then-else and if-then-else if evaluation rules. The 
syntax for these constructs are a little different but after 
reading through a few of them they become straightforward 
(Figure 2.8 explains the syntax). 

Since there is standardization and limited 
complexity it would appear that the pretty printer code 
should be fairly easy to read and understand. One drawback 
is by increasing readability some efficiency has been lost. 
Since this is a research project readability and 


understandability of the Kođiyak compiler апа the pretty 
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printer are more important than optimization. Increasing 
optimization often decreases the readability of any code. 
The pretty printer code is fairly straight forward and very 
readable. 
3. Ease of Modification 

For any number of reasons the existing code may be 
changed. Is this change an easy and uncomplicated 
undertaking and/or is it going to be time consuming? The 
pretty printer code consists of six attributes and simple 
mathematics. Each attribute is unique and its function or 
value does not affect owether abtrribubes (ехеерюносо 050 зешо 
ecursor which depend on each other). Therefore changing the 
meaning of one attribute should be straight forward and easy 
to implement. To add an additional attribute (Similar to 
the type already implemented) will be time consuming (typing 
time) but fairly simple. On the other hand to add an 
attribute that uses higher order functions or depends on the 
value of existing attribute values will be time consuming 
and complex (each production rule will have to be looked at 
ара у а а E 

From experience the effort in making changes is 
time consuming but not very complicated. As an example, a 
modification was made іп the implementation of the 
production rules (and the children of the production rules) 
using the symbol "expression". Prior to the change the end 


of line check did not include the use of the length 
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attribute. This length attribute was added to all 
production rules very easily. It was time consuming because 
of the major edit to the pretty printer code and the need to 
verify all corrections/additions were made. The change 


itself was a very simple modification. 


D. APPLICATION EXTENSION 
It is highly desirable to apply the techniques used in 
this implementation to the development of а language 
independent pretty printer. Before a generalization can be 
reached a careful analysis of the existing code must be 
completed. 
lo Pretty Printer Code Analysis 
Chapter three covers the exact design and 
implementation in detail. Specifically four general rules 
for this pretty printer are explained along with all 
exceptions to each of the four general rules. This section 
looks at the overall development of these rules and 
generalizes the method used to apply to any language. 
Examination of the pretty printer production rules, 
looking at how each production rule symbol is implemented, 
leads to a list of generalized symbol categories. Each SPEC 
language symbol uniquely fits into one of these four 
categories (as listed in Figure 4.6). 
An analysis Әр “ПЕ Ресаше ules ОС SPEC 


provides the insight into the development of the four 


EE 


generalized symbol categories listed in Figure 4.6. Look at 
the production rules as collections of symbol categories 
instead of individual rules. In other words look at the 
production rules as combinations of keywords (all three 
types), terminals (CL and VL) and nonterminals. In this 
way generalizations сап Бе reached. Keywords (general, 
expression and special) are listed in Figures 3.3, 3.4 and 
3.5. All the terminal symbols of the language are listed in 
Figures 3.156. 3.7 and Sess. Review of these figures and 
the pretty printer code leads to the development of the 
general symbol categories for the production rules. Figure 
4.7 lists the production rules from the SPEC grammar 
transposed into standard forms using these symbol 
categories. Note that Figure 4.7 contains keywords (all 
three types grouped under one heading), CL and VL terminal 


symbols and nonterminals. 


. Keyword 
Terminal 
Comment 

. Nonterminal 


Figure 4.6 General Symbol Categories 





By referring back to the implementation rules for 


the pretty printer (Еї єє? 200 0 SSH and 
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| 


22. 


23: 


24. 


25. 


26. 


27. 


28. 


29. 


о о о моль шо мн 


KEYWORD 

CL-terminal 

VL-terminal 

nonterminal(s) 

CL-terminal vL-terminal 

CL-terminal nonterminal(s) 

nonterminal(s) VL-terminal 

VL-terminal nonterminal(s) 

KEYWORD nonterminal(s) 

KEYWORD nonterminal(s) KEYWORD 

nonterminal(s) CL-terminal VL-terminal 

nonterminal(s) KEYWORD nonterminal(s) 

KEYWORD VL-terminal nonterminal(s) 

VL-terminal CL-terminal nonterminal(s) 

CL-terminal nonterminal(s) CL-terminal(*) 

nonterminal(s) CL-terminal nonterminal(s) 

CL-terminal VL-terminal CL-terminal nonterminal(s) 

CL-terminal nonterminal(s) CL-terminal 
nonterminal(s)(*) 

KEYWORD nonterminal(s) KEYWORD nonterminal(s) 

KEYWORD nonterminal(s) CL-terminal nonterminal(s) 

nonterminal(s) CL-terminal nonterminal(s) 
CL-terminal(*) 

nonterminal(s) CL-terminal nonterminal(s) 
CL-terminal nonterminal(s) CL-terminal(*) 

KEYWORD VL-terminal nonterminal(s) CL-terminal 
nonterminal(s) 

KEYWORD VL-terminal nonterminal(s) KEYWORD 
nonterminal(s) 

CL-terminal nonterminal(s) CL-terminal nonterminal(s) 
"CL-terminal(*) 

KEYWORD CL-terminal nonterminal(s) CL-terminal 
nonterminal(s) (*) 

nonterminal(s) KEYWORD nonterminal(s) KEYWORD 
nonterminal(s) 

nonterminal(s) KEYWORD VL-terminal KEYWORD 
VL-terminal nonterminal(s) 

KEYWORD nonterminal(s) KEYWORD nonterminals(s) 
KEYWORD nonterminal(s) KEYWORD 

nonterminal(s) KEYWORD nonterminal(s) CL-terminal 
nonterminal(s) KEYWORD nonterminal(s) 


(*)VL-terminal symbols are matched pairs (i.e., (,),[.] )| 


Figure 4.7 Standard Forms 
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3.24) more generalizations can be made.  VL-terminal and 
CL-terminal are implemented exactly the same мау. The 
distinction between the two symbols exists in the 
exceptions to the terminal symbol rule. Therefore CL- 
terminal and VL-terminal symbols can be combined into the 
category terminal. Figure 4.7 grouped the symbol comment as 
a nonterminal. Because comment is implemented differently 
than a nonterminal, comment needs to be in a separate 
category. None of the remaining symbols can be combined. 
This leads to the modification of the standard forms into a 
new list of standard forms as listed in Figures 4.8 and 4.9. 
It can be concluded that each production rule is a 
combination of one or more of the four general symbol 
categories (listed in Figure 4.6) repeated one or more 
times. 
2. Languagestindependent Pretty Prince: 

The approach used in this particular implementation 
is very regular and could be applied mechanically by a 
preprocessor. All the information that the preprocessor 
obtained would be translated and sent to the Kodiyak 
compiler. The preprocessor is responsible for the language 
dependent questions as well as any special features the user 
wanted considered for their particular пр: етен а оне 
Language dependent questions include such items as file name 
containing the grammar of the language to be pretty 


printed, keyword Specifications, terminal symbols and 
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ШЕЕ 





о сос зол ъс) ок 


KEYWORD 

terminal(s) 

nonterminal(s) 

nonterminal(s) terminal(s) 

terminal(s) nonterminal(s) 

KEYWORD nonterminal(s) 

KEYWORD nonterminal(s) KEYWORD 

nonterminal(s) KEYWORD nonterminal(s) 

KEYWORD terminal nonterminal(s) 

terminal nonterminal(s) terminal(*) 

nonterminal(s) terminal nonterminal(s) 

terminal nonterminal(s) terminal nonterminal(s) (*) 

nonterminal terminal nonterminal(s) terminal (*) 

KEYWORD terminal nonterminal(s) KEYWORD 
nonterminal(s) 

nonterminal(s) KEYWORD nonterminal(s) KEYWORD 
nonterminal(s) 

nonterminal(s) terminal nonterminal(s) 
terminal nonterminal terminal(*) 

KEYWORD nonterminal(s) KEYWORD nonterminals(s) 
‘KEYWORD nonterminal(s) KEYWORD 


(*)terminal symbols are matched pairs (i.e., (,),[,]) 


Figure 4.8 Standard Forms Revised 
Without Comment Symbol 
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nonterminal(s) comment 
comment nonterminal(s) 
terminal(s) nonterminal(s) comment 
KEYWORD nonterminal(s) comment 
terminal nonterminal(s) terminal comment(*) 
KEYWORD nonterminal(s) KEYWORD comment 
nonterminal(s) terminal comment nonterminal 
KEYWORD nonterminal(s) comment nonterminal(s) 
nonterminal(s) terminal comment nonterminal(s) 
comment 
10. KEYWORD terminal nonterminal(s) terminal comment (*) 
11. KEYWORD nonterminal comment nonterminal(s) comment 
12. nonterminal(s) KEYWORD nonterminal(s) KEYWORD EU 
13. nonterminal(s) KEYWORD nonterminal comment 
nonterminal(s) comment 
14. KEYWORD nonterminal KEYWORD nonterminal comment 
nonterminal(s) 
15. nonterminal KEYWORD terminal KEYWORD 
terminal comment 
16. KEYWORD nonterminal(s) terminal nonterminal 
comment nonterminal 
17. terminal nonterminal(s) terminal comment | 
nonterminal(s) terminal(*) 
18. KEYWORD terminal nonterminal(s) terminal 
nonterminal comment terminal (*) | 
19. nonterminal KEYWORD nonterminal(s) comment KEYWORD 
nonterminal comment 
20. nonterminal(s) KEYWORD nonterminal(s) terminal 
nonterminal(s) comment nonterminal(s) 
KEYWORD comment 


хо со сул + C) мо 72 





(*)terminal symbols are matched pairs (i.e., (,),[,] ) 





| 
Figure 4.9 Standard Forms Revised 
With Comment Symbol 
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values, keyword types, paired terminal symbols, comment 
symbol, etc. The grammar file should be formatted as 
specified by the Kodiyak manual [Ref. 9:pp. 2-25]. Special 
features would include such things as the standard 
indentation, width of the paper, unusual lengths of tokens, 
left-hand margin to start at a value other than one, 
Special handling for a grammar rule, etc. 

Figure 4.10 shows how the preprocessor works. Тһе 
preprocessor could be either menu driven (asking a series of 
questions) or a command line format could be used (i.e., pp 
grammarfilename -w 120 where pp invokes the preprocessor, 


grammarfilename is the name of the file containing the 


grammar and -м 120 states the line length is 120 
characters). This method for invoking the preprocessor 
would be system dependent. The preprocessor would take in 


all necessary data, use a set of production rule and 
generate. an attribute grammar, format the attribute grammar 
to be compatible with the Kodiyak compiler and transmit its 
data to the Kodiyak compiler which in turn would produce a 
working pretty printer for the desired language. 

The rules used by the preprocessor to generate the 
attribute grammar to be used by the Kodiyak compiler in 
generating the language independent pretty printer are very 
straight forward. Figure 4.11 shows the four rules needed 


to implement a language independent pretty printer. 
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| 771 
Сгаттаг Гог 

language 

User PREPROCESSOR 
Тира 


attribute grammar 
for pretty printer 










KODIYAK COMPILER 





working 
pretty printer 





Figure 4.10 Preprocessor 





Each production rule, for the given grammar, must 
be transformed into a set of attribute equations to produce 
the desired pretty printer code. The four language 
independent rules listed in Figure 4.11 use the same 
attributes used in the language dependent pretty printer 
implementation. Each symbol in a production rule must be 
categorized and then the associated rule for that symbol 
must be applied. 

As an example consider the production rule "X : A B 
C D". The preprocessor first would determine the category 


for each of the four symbols in this production rule. Next 
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1. X : Keyword 
X.str value - if standard 
then ["Mn",indent,keyword] 
else if keyword fits on current line 
then [keyword] 
else ["An",indent,keyword] 
X.ecursor - if standard 
then len(indent) + len(Keyword) 
else if keyword fits on current line 
then X.bcursor + len(keyword) 
else len(indent) + len(keyword) 


2. Х : Nonterminal 
Шер ети аш Боцвесг «її (ХоБбсигчогі 9 0) 
then len(padding) 
else X.bcursor 
X.ecursor - Nonterminal.ecursor 
Nonterminal.padding - X.padding 
Nonterminal.indent = [X.indent, spaces(3) ] 
ЕЕ аще = 16 (x beursor < 0) 
then [padding,nonterminal.str value 
else nonterminal.str value 


в. Terminal 
X.str value = if (X.bcursor + len(terminal)) < END 
= then terminal 
else ["^n",padding,terminal] 
X.ecursor - if (X.bcursor « len(terminal)) < END 
then X.bcursor + len(terminal) 
else len(padding) + len(terminal) 
x if paired terminal symbol check for <= END 





END = MAXIMUM LINE LENGTH 


4. X : Comment 
X.str value - Comment.str value 
X.ecursor - if len(Comment.str value ) » 0 
then -1 (*comment exists*) 
alse n 


Figure 4.11 Language Independent Rules | 
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the four rules, listed in Figure 4.11, would be applied to 
each symbol in the production rule. Finally, a set of 
attribute equations is generated. Figure 4.12 outlines the 
details of the generation of the attribute equations for 


this example. 





PRODUCTION RULE -> A: ABCD 


1. Assume A is a keyword (standard), B is a nonterminal 
C is a terminal, D is a comment 


2. A.str value = Г'"Хп'", хазїпавни, Keyword 
A.ecursor = len(X.indent) + len(Keyword) 


3. B.beursor = A lecursor 
Nonterminal.bcursor = if (B.bcursor < 0) 
then len(padding) 
else B.bcursor 

Nonterminal.padding = X.padding 
Nonterminal.indent = [X.indent, " A] 
B.str value - if (B.bcursor < 0) 

then [X.padding,Nonterminal.str value] 

else Nonterminal.str_value 


4, C.bcursor = B.ecursor 
C.str value = СЕИ 22502022 ел пе е ст NEED 
then terminal 
else ["Mn",X.padding,terminal]) 
C.ecursor - if (C.bcursor + len(terminal)) «4 END 
then C.bcursor + len(terminal) 
else len(X.padding) - len(terminal) 

















5. D.str_value = Comment str value 
D.ecursor = if Тепбботтепо 5 ае ои | 
ел 
ӨТЕСЕ 


6. X.Str value = ГА. 5Ег майше В 5 Беше це = = Беше 
Db-str уаїше| 
X.ecursor - D.ecursor 








Figure 4.12 Attribute Equation Generation Example 
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In conclusion it is feasible to use Kodiyak to make 
a language independent pretty printer generator. Invorder 
to do this a preprocessor is needed to gather information on 
the specific language implementation and any requirements 
from the user. The preprocessor will take its gathered 
information, translate it into an attribute grammar for 
Peerty sprinter (using rules outlined in Figure 4.11) and 
transmit the attribute grammar to the Kodiyak compiler. 
The Kodiyak compiler will produce the executable code for a 
pretty printer for the desired input language. With this 
method only one pretty printer needs to be written and 


multiple languages can be pretty printed. 
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па 
па 
In a 
In a 
In a 
In a 


*def ine 
Xdef ine 
define 
zdef ine 
%де пе 
де пе 
%де ine 
Xdef ine 


regular 
regular 
regular 
regular 
regular 
regular 


APPENDIX A 


verslon stamp $Header: spec.k,V 1.5 88/02/16 13:27:58 berzins Exp $ 


In the grammar, comments go from a "I" to the end of the IIne. 

Terminal symbols are entirely upper case or enclosed in single quotes ('). 
Nonterminal symbols are entirely lower case. 

Lexical character classes start with a captlal letter and are enclosed In (). 


expresslon, x« means one or more x's. 

expresslon, x* means Zero or more x's. 

expression, [xyz] means x or y or z. 

expresslon, [^xyz] means any character except x or y or z. 
expression, [a-z] means any character between a and z. 
expression, . means any character except newline. 


definitions of lexical classes 


Digit : [0-9] 

Int :{01911)+ 

Letter :[а-24-2] 

А1рһа :((Letter)i(Digit)i" ") 

Blank :{ MM 

Quote ч] 

Васко |азћ NN 

Char :([^" N11 (Backslash) (Quote) | (Backslash) (Backslash) ) 


| definitions of white space and comments 


:(Blank)s 
А 


| definitlons of compound symbols and keywords 


AND 

OR 

NOT 
IMPLIES 
IFF 


LE 
GE 
NE 
NLT 
NGT 
NLE 
NGE 


SC 
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EQV 
NEQV 


RANGE 
APPEND 
MOD 
EXP 


BIND 
ARROW 


IF 
THEN 
ELSE 
IN 

U 


ALL 
SOME 

NUMBER 

SUM 

PRODUCT 

SET 

MAX IMUM 
MINIMUM 
UNION 
INTERSECT ION 
SUCH 

ELSE_IF 


AS 

CHOOSE 
CONCEPT 
DEFINITION 
DELAY 

00 

ЕМО 
ЕХСЕРТІОМ 
ЕХРОВТ 

Е! 
РОВЕАСН 
FROM 
FUNCTION 
GENERATE 
HIDE 
IMPORT 
INHER IT 
INITIALLY 
INSTANCE 
INVARIANT 
ІТЕВАТОВ 


„(Васко |азћ) !Мо0 


"+e" 


ТЕ 
: THEN 
:ELSE 
SEIN 
:U 


АП 

:50МЕ 

: NUMBER 

: SUM 

; PRODUCT 

SS RIT 

> MAX IMUM 
:MINIMUM 

:UNION 

: INTERSECT ION 
:SUCH(B lank) *THAT 
: ELSE (B lank)* IF 


: AS 
:СН005Е 

: СОМСЕРТ 
:DEF INITION 
:DELAY 

:00 

:END 
:EXCEPT ION 
: EXPORT 
:FI 
:FOREACH 
:FROM 
:FUNCT ION 
:GENERATE 
:НІРЕ 

: IMPORT 

: INHERIT 

: INITIALLY 
: INSTANCE 
: INVAR IANT 
: ITERATOR 
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MACHINE 
MESSAGE 
MODEL 

00 

OF 
OPERATOR 
OTHERWISE 
PERIOD 
RENAME 
REPLY 
SEND 
STATE 
TEMPORAL 
TIME 

TO 
TRANSACT ION 
TRANSITION 
TYPE 
VALUE 
VIRTUAL 
WHEN 
WHERE 


SECONDS 
MINUTES 
HOURS 
DAYS 
WEEKS 
NANOSEC 
MICROSEC 
MILLISEC 


:MACH | МЕ 
:MESSAGE 
:MODEL 

:00 

:0Е 

: OPERATOR 
:OTHERWISE 
:PER 10D 
:RENAME 
:REPLY 

: SEND 
:5ТАТЕ 

: TEMPORAL 
> TIME 

:10 

: TRANSACT | ON 
> TRANSITION 
: ТҮРЕ 

: VALUE 
:VIRTUAL 

: WHEN 

: WHERE 


:SECONDS 
: MINUTES 
: HOURS 
:DAYS 
: WEEKS 
:NANOSEC 
:MICROSEC 
:MILLISEC 


INTEGER LITERAL :{Int} 


REAL LITERAL 
CHAR LITERAL 


STRING LITERAL 


NAME 


: (Int). "CInt) 


„неин мен 


:{Letter}{Alpha}* 


| operator precedences 
| ZSleft means 2+3+4 1$ (2+3)+4. 


Zleft 
шек 
žleft 
Sleft 
Хе! 
шет 
Хіеті 
Хе! 
Xleft 


: (Quote) (Char)* (Quote) 


7, IF, DO, EXCEPTION, NAME, SEMI; 


",", СОММА; 
SUCH; 

ПЕЕ 
IMPLIES; 
OR; 

AND; 

NOT; 


‘<’, ‘>’, ‘=’, LE, GE, NE, NLT, NGT, NLE, NGE, EQV, NEQV; 
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Xnonas 
шен 
Xleft 
жет 
Шек 
жеті 
дет 
шек 


Xx 
ја г ! 


її 
| ргод 


start 


soc IN, RANGE; 
U, APPEND; 


"*', "=", PLUS, MINUS; 
Е, м, ОМ, MODE 
UMINUS; 

БАРЕ 

BI G 

STAR; 


bute declarations 


uctlons of the grammar 


: Spec 


Spec 


{ ) 


: Spec module 


module 


(2 
{ ) 


С, От. WHERE; 


І А production with nothing after the "j" means the empty string 
| is a legal replacement for the left hand side. 


: function 


functi 


(=) 
machine 
{ } 
type 
{ } 
definition 
{ } 
instance 


(2 


| of a generic module 


on 


: optionally virtual FUNCTION interface messages concepts END 


machin 


m 


| Virtual modules are for Inheritance only, never used directly. 


e 
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: optionally virtual MACHINE interface state messages transactions temporals concepts 


END 
C 
type 
: optlonally_virtual TYPE interface model messages transactlons temporals concepts END 
ШЕ 
definition 
: DEFINITION interface concepts END 
{ } 
instance 
: optionally virtual INSTANCE parametrized name ‘=’ parametrized name hide renames END 
ша 
| For making Instances or partial instantiations of generic modules, 
| and for making Interface adjustments to reusable components 
| by hiding or changing some names. 
Interface 
: NAME formal parameters Inherlts imports export 
() 
| This part describes the static aspects of a module's interface. 
| The dynamic aspects of the Interface are described In the messages. 
| A module Is generic iff It has parameters. 
| The parameters can be constrained by a WHERE clause. 
| A module can Inherit the behavior of other modules. 
! A module can Import concepts from other modules. 
| A module can export concepts for use by other modules. 
Inherits 
: Inherits INHERIT parametrized_name hide renames 
{ } 
І 
() 
| ancestors are generalizations or simplified views of a module 
| an actor inherits all of the behavior of Its ancestors 
hide 
: HIDE пате 1151 
(3 
| 
() 
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! Useful for providing limited views of an actor. 
! Different user classes may see different views of a system. 
| Messages and concepts can be hidden. 


renames 
: renames RENAME NAME AS NAME 
() 


() 


| Renaming is useful for preventing name conflicts when Inheriting 
| from multiple sources, and for adapting modules for new uses. 

| The parameters, model and state components, messages, exceptions, 
| and concepts of an actor can be renamed. 


Imports 
: Imports IMPORT name list FROM parametrIzed name 
ша 
i 


te) 


export 
: EXPORT name list 
1) 


17) 


messages 
: messages message 


(3 


{ } 


message 
: MESSAGE message header operator response 


= 


э 


response 
: response body 


C) 
; response cases 


12) 
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response cases 
: WHEN expression list response body response cases 
() 
| OTHERWISE response body 
О 


response body 
: choose reply sends transition 
(3 


choose 
: CHOOSE ‘(’ field list restrictlon ")" 
2) 
i 


1) 


геріу 
: REPLY message header where 

2 

GENERATE message header where | used in iterators 

Œ 


га 


: sends send 


ГА) 
(а 


: SEND message header TO parametrized name where foreach 
= 


transition 
: TRANSITION expression list | for describing state changes 
7) 
! 


{ ) 


message header 
: optlonal exception optional name formal arguments 
С) 
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where 
: WHERE expression list 
{ } 
{ Зргес SEMI ! must have a lower precedence than WHERE 
py 


optionally virtual 
: VIRTUAL 
Œ 


{ ) 


. 
э 


оріїопа! ехсерііоп 
: ЕХСЕРТІОМ 
{ ) 
| Хргес 5ЕМ| 
m) 


operator 
: operator OPERATOR operator list 
2 


d 


foreach 
: FOREACH '(* fleld IIst restriction ')' 
(З 
І 
І 
(7) 


! FOREACH is used to describe a set of messages to be sent. 


concepts 
: concepts concept 
и 
1 
I 
@ 
сопсерї 
: CONCEPT NAME formal parameters ':' type spec mhere 
| constants 
20 
| CONCEPT NAME formal parameters formal arguments where VALUE formal arguments where 
| functions 


un 
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поде | | data types have conceptual models for values 
: MODEL formal_arguments invarlant 
{ } 
| MODEL formal arguments invariant initially 
| Initially clause specifies automatic variable initialization 


{ } 
state | machines have conceptual models for states 
: STATE formal arguments invariant initlally 
tJ) 
Invariant | Invarlants are true In all states 
: INVARIANT expresslon list 
{ ) 
Initially | Initial conditions are true only at the beginning 
: INITIALLY expresslon list 


Œ 


, 


transactions 
: transactions transaction 
(2 


C 


. 
? 


transaction 
: TRANSACTION parametrized name '-' action expression where 
СУ 
| Transactions are atomic. 
| The where clause can specify timing constraints. 


action expression 


: action expression ';' action list Xprec SEMI | sequence 
С} 

| action list 
() 

action 1151 

: action list action list &prec STAR | parallel 
t3 

| IF alternatives Fi | спо | се 
() 

| DO alternatives 00 ! repetition 
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m 


| Parametrized name | a normal message 
г) 

| EXCEPTION parametr ized name | an exception message 
( ) 


alternatives 
: alternatives OR guard action expression 


() 
ı guard action expression 
{ } 
guard 
: WHEN expression ARROW 
{ } 
i 
() 
temporals 
: temporals temporal 
[93 
і 
C) 
temporal 
: TEMPORAL NAME where response 
(jJ 
| Temporal events are trigged at absolute times, 
| In terms of the local clock of the actor. 
| The “where” describes the triggering conditions 
| In terms of "TIME" and "PERIOD". 
formal parameters | parameter values are determined at specification time 
жое сасу биеге 
(0) 
i 
{ } 
formal arguments | arguments are evaluated at run-time 
a eld list™)” 
{ ) 
і 
{ } 
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field list 
: fleld list ‘,’ fleld 
{3} 
| fleld 
ГЭ 


fleld 
: name lIst ':' type spec 
22 
1-87 МАМЕ ':' type spec 
e 
ер 
(3 


. 
% 


type spec 
: parametrized name | nane of a data type 

12) 
TYPE actual parameters 
22) 
FUNCTION actual parameters 
ги 
MACHINE actual parameters 
(27) 
ITERATOR actual parameters 
() 
"ЫЫ 

с) 


name list 
: name list NAME 

27) 

! МАМЕ 

e 


optional name 
: NAME formal parameters 
Е? 
i 


{3 


parametrized name 
: NAME actual parameters 
2 


actual parameters ! parameter values are determined at specification time 
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Ж Жа сш 3° 
18) 

| prec SEMI ! must have a lower precedence than ‘{’ 
СЭ 


actual arguments | arguments are evaluated at run-time 
аса ИЕ)" 
2) 
! prec SEM! | must have a lower precedence than '(' 
C) 


агд 1151 
: агд 1161 7," агд Хргес СОММА 
() 
| arg 
() 


arg 
: expression 

(22) 

i Pair 

(2 


ехргевв!оп 1151 


: expression list ',' expression Хргес СОММА 
{ } 

! expression 
(e 

expression 

: quantifler '(' fleld list restriction BIND expression ')* 
22 

| parametrized name actual arguments 
{ } 

| parametrized name ‘@° parametrized name actual arguments 
{ } 

| NOT expression prec NOT 
{ ) 

! expression AND expression Xprec AND 
{ } 

! expression OR expression Xprec OR 
{ } 

г expression IMPLIES expression Хргес IMPLIES 
{ } 

| expression IFF expression Хргес ІРЕ 
() 


39 


expression '«' expression 
124) 

expression '»' expression 
12) 

expression ‘=’ expression 
{ } 

expression LE expression 
12) 

expression GE expression 
() 

expression NE expression 
|) 

expression КІТ expression 
() 

expression NGT expression 
() 

expression NLE expression 
(23 

expression NGE expression 
() 

expression EQV expression 
(07) 

expression NEQV expression 
() 

'-' expression 

17) 

expression ‘+’ expression 
{ } 

expression '-' expression 
() 

expression '*' expression 
i 3 

expression '/' expression 
(2) 

expression MOD expression 
{ ) 

expression EXP expression 
2 

expression U expression 

( ) 

expression APPEND expression 
{ } 

expression iN expression 
2! 


одо 


'*' expression 
| *x is the vaiue of x before a transition 
| x is the vaiue after the transition 


t 


'$' expression 
| $x represents a coiiection of items rather than just one 


| Sy e (D 


552) means 51 з 


ӛргес 
%ргес 
їргес 
Хргес 
aprec 
ӛргес 
фргес 
Хргес 
їргес 
Хргес 
Хргес 
Хргес 
Хргес 
їргес 
їргес 
Хргес 
Фргес 
Хргес 
Хргес 
Хргес 
Хргес 
Хргес 


Хргес 


ӛргес 


ЕЕ 


LE 


LE 


LE 


LE 


LE 


UMINUS 


PLUS 


MINUS 


MUL 


DiV 


MOD 


EXP 


U 


APPEND 


iN 


STAR 


DOT 


ипіоп((х), 52) 
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1 51 з Їх, 552) пеап5 51 з append([x], s2) 
(C) 

expression RANGE expression ргес RANGE 
! x in [a .. b] iff x in (a .. b) iff a <= x <= b 
! [a .. b] is sorted in increasing order 
() 

expresslon "." МАМЕ Яргес DOT 

{ } 

expression '(' expression ")" Хргес DOT 
С) 

“(5 expresslon ')' 

) 


| “(° expression units ')' | timing expression 


m~ 


| TIME | The current local time, used in temporal events 
() 
DELAY ! The time between the triggering event and the response 
t) 
PERIOD | The time between successlve events of this type 
() 
literal 
{ } 
literal ‘@° parametrized папе | literal with explicit type 
{ } 
паю 1 Ап undef Ined value to be specified later 
12) 
Па | An undefined and lilegal value 
12) 
ЇЕ expression THEN ехрге$$5!оп т!@0!е_са$е$ Е1$Е ехрге$$!оп РІ 
t9 


middle cases. 
: middle cases ELSE IF expression THEN expression 
1) 
i 


|) 


. 
Ж 


quantifier 

: ALL 
() 

| SOME 
Lj 

| NUMBER 
(23 

! SUM 
() 

! PRODUCT 
(28 

| SET 
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I 
MAX I MUM 

(2) 
MINIMUM 

{ ) 

| UNION 

{ ) 
INTERSECT ION 
{ ) 


, 


restriction 
: SUCH expression 
{ ) 
i 


m 


literal 

: INTEGER LITERAL 
г) 
REAL LITERAL 
(2 
CHAR LITERAL 
(2 
STRING LITERAL 
(2 
1247 МАМЬ | enumeration type literal 
13 
121 
( 
І" 
i 
e 


expressions ']' | sequence literal 
) 
^ expressions ')' | set literal 
) 
' expression ';' expressions ")" | map literal 


4 .. 


) 
"прате ']' | tuple literal 
) 


~ ~ 


a 
un 


palr *)' | one of literal 


| relation literals are sets of tuples 


expressions 
: expression list 
(3) 
І 
1 


{ ) 


pair 1151 
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Spal list ©,” pair 


pair 


0) 
КАМЕ раїг 
(3 
раїг 
p 


: NAME BIND expression 


units 


Л 


: NANOSEC 


{ ) 
MICROSEC 
2 
MILLISEC 
2! 
SECONDS 
CI 
MINUTES 
e) 
HOURS 
2 

DAYS 

( ) 
WEEKS 
17) 


орега(ог 1161 
: operator list operator symbol 


, 


operat 
: NOT 


2 
operator symbol 
(7) 


or symbol 


(ок) 

AND 

() 

08 

E 
IMPLIES 
t 

IFF 

г 


< 
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104 


APPENDIX B 


| verslon stamp $Header: spec.k,v 1.5 88/02/28 13:27:58 berzins Exp $ 


In the grammar, comments go from a "!" to the end of the IIne. 

Terminal symbols are entirely upper case or enclosed in single quotes (”). 
Nonterminal symbols are entirely lower case. 

Lexical character classes start with a captlal letter and are enclosed in (). 
In a regular expression, x« means one or more x's. 

їп a regular expression, x* means zero or more x's. 

In a regular expression, [xyz] means x or y or z. 

In a regular expression, [^xyz] means any character except x or y or z. 

In a regular expression, [a-z] means any character between a and z. 

In a regular expression, . means any character except newline. 


definitions of lexical classes 


Zdefine Digit : [0-9] 

zdefine Int :(Digit)4 

Xdefine Letter :[a-z4-Z] 

Xdefine Alpha :((Letter)i(Digit)i" ") 

Xdefine Blank 41 мм 

Xdef Ine Quote at | 

Zdefine Backslash гм 

zxdefine Char :([^"\\}i(Backslash}(Quote}!{Backslash}{Backslash}) 


! definitlons of white space and comments 


:(Blank)« 
COMMENT з EENDE 


| definitlons of compound symbols and keywords 


AND SEC 
OR ge 
NOT ин 
IMPLIES :"=>" 
IFF «з= 
LE E 
GE {">=" 
МЕ Ша” 
NLT < 
NGT а АН 
МЕ "Так" 
NGE >= 
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EQV 
NEQV 


RANGE 
APPEND 
MOD 
EXP 


BIND 
ARROW 


IF 
THEN 
ELSE 
IN 

U 


ALL 
SOME 
NUMBER 
SUM 
PRODUCT 
SET 

MAX IMUM 
MINIMUM 
UNION 
INTERSECT ION 
SUCH 
ELSE IF 


AS 

CHOOSE 
CONCEPT 
DEF INITION 
DELAY 

00 

ЕКО 
ЕХСЕРТІОМ 
ЕХРОВТ 

Е! 
РОВЕАСН 
FROM 
FUNCTION 
GENERATE 
HIDE 
IMPORT 
INHERIT 
INITIALLY 
INSTANCE 
INVAR I ANT 
ITERATOR 


F 
: THEN 
:ELSE 
: IN 
:U 


: ALL 

:50МЕ 

: NUMBER 

:SUM 

: PRODUCT 

ISET 

:MAX IMUM 
:MINIMUM 

UNION 

: INTERSECT ION 

: SUCH{B lank} *THAT 
:ELSE{Blank}* IF 


:А5 

: CHOOSE 

: CONCEPT 
:DEF INITION 
:DELAY 

:00 

:ЕМО 
:ЕХСЕРТІОМ 
:ЕХРОВТ 
“| 
:FOREACH 

: FROM 

: FUNCTION 
; GENERATE 
;:HIDE 

: IMPORT 

: INHERIT 

: INITIALLY 
: INSTANCE 
: INVAR IANT 
: ITERATOR 
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МАСНІКЕ 
MESSAGE 
MODEL 

0D 

ОЕ 
ОРЕВАТОВ 
OTHERWISE 
PERIOD 
RENAME 
REPLY 
SEND 
STATE 
TEMPORAL 
TIME 

TO 
TRANSACTION 
TRANS ITION 
[BUE 
VALUE 
VIRTUAL 
WHEN 
WHERE 


SECONDS 
MINUTES 
HOURS 
DAYS 
WEEKS 
NANOSEC 
MICROSEC 
MILLISEC 


:MACH INE 

: MESSAGE 

: MODEL 

:00 

306 

: OPERATOR 
: OTHERWISE 
:PERIOD 

: ВЕМАМЕ 

: REPLY 
:SEND 
:STATE 
:TEMPORAL 
> TIME 

:10 

: TRANSACTION 
: TRANSITION 
: TYPE 

: VALUE 

: VIRTUAL 

: WHEN 

: WHERE 


: SECONDS 
:MINUTES 
: HOURS 
:DAYS 
:WEEKS 
: NANOSEC 
:MICROSEC 
:MILLISEC 


INTEGER LITERAL  :(Int) 


REAL LITERAL 
CHAR LITERAL 


:(Int)" ."CInt) 


„ни niw 


STRING LITERAL — :(Quote)(Char)*(Quote) 


NAME 


:(Letter)(Alpha)* 


| operator precedences 
| Zleft means 2+34+4 Is (2+3)+4. 


ждет 
Xleft 
Zleft 
дек 
шек 
Zleft 
Zleft 
Xleft 
Xleft 


"15, ТЕ, 00, EXCEPTION, NAME, SEMI; 

",", COMMA; 

SUCH; 

IFF; 

IMPLIES; 

OR; 

AND; 

NOT; 

Yet Os? Gof ile, Ge, NE, М А РАН ЦОРЖ NGE БІО УРН МЕ СУ 
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&попа$$0С IN, RANGE; 


дек 0, АРРЕКО; 

aleft "я", “=, PLUS, MINUS; 

Мен ж” '/*, MUL, DIV, MOD; 

&left UMINUS ; 

aleft EXP; 

Жент ӨТ р ин: 
sleft STAR; 

мен COMMENT ; 

ah 


lattrubute declatations for nonterminal symbols 


start { 
str value: string; 
}; 


spec ( 
Indent: string; 
str value: string; 
js 


module ( 
Indent: string; 
str value: string; 
); 


function ( 
Indent: string; 
str value: string; 
}; 


machine ( 
Indent: string; 
str value: string; 
Js 


type ( 
Indent: string; 
str value: string; 


); 
definition ( 
indent: string; 
str value: string; 
ds 
Instance ( 


Indent: string; 
str value: string; 
југ 
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interface ( 
indent: string; 


str value: str Ing; 

bcursor: int; 

padding: string; 
JS 


inherits { 
Indent: string; 


str_value: string; 
bcursor: Int; 
padding: string; 


}; 


hide { 
indent: string; 


str_value: string; 

bcursor: Int; 

padding: string; 
Ж 


гепате5 ( 
Indent: string; 


str value: string; 
bcursor: Int; 
padding: string; 


Б 


Imports { 
indent: string; 


str_value: string; 

beursor : Int; 

padding: string; 
де 


ехрогі ( 
indent: string; 


str value: string; 
beursor: Int; 
padding: string; 


Jg 


messages ( 
Indent: string; 


str_value: string; 
beursor: Int; 
padding: string; 


J; 


message { 
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indent: string; 

str value: string; 

bcursor: int; 

padding: string; 
}; 


гезропзе { 
indent: string; 
str value: string; 
bcursor: int; 
padding: string; 


DE 


response cases { 
indent: string; 


str value: string; 

beursor: int; 

padding: string; 
Е 


response body ( 
indent: string; 


str vaiue: string; 
bcursor: int; 
padding: string; 

} 


choose ( 
indent: string; 
str vaiue: string; 
bcursor: int; 
padding: string; 


ШІ 


геріу ( 
indent: string; 
Str vaiue: string; 
bcursor: int; 
padding: string; 


); 


sends ( 
indent: string; 
str value: string; 
bcursor: int; 
padding: string; 
у; 


send ( 
indent: string; 
str value: string; 
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bcursor: int; 
padding: string; 
J; 


transition { 
indent: string; 
str value: string; 
bcursor: int; 
padding: string; 
}; 


message header ( 
Indent: string; 
str value: string; 
bcursor: int; 
ecursor: int; 
padding: string; 
J; 


where { 
Indent: string; 
str value: string; 
bcursor: int; 
ecursor: Int; 
padding: string; 
}; 


optionally virtual { 
str value: string; 


bcursor: int; 
ecursor: int; 


У; 


optional exception ( 
indent: string; 
str value: string; 
bcursor: int; 
ecursor: Int; 
padding: string; 
ря 


орегаїог ( 
Indent: string; 
str value: string; 
bcursor: int; 
ecursor : int ; 
padding: string; 


| 


foreach ( 
indent: string; 
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str value: string; 

bcursor: int; 

padding: string; 
ДЕ 


сопсерї5 ( 
indent: string; 
str value: string; 
bcursor: int; 
padding: string; 


JE 


concept { 
indent: string; 
str_value: string; 
bcursor: int; 
padding: string; 
йг 


modei ( 
indent: string; 
str value: string; 
bcursor: int; 
padding: string; 
ув 


state ( 
indent: string; 
str value: string; 
bcursor: int; 
padding: string; 
); 


invariant ( 
indent: string; 
str vaiue: string; 
bcursor: int; 
padding: string; 
ji 


initially С 
indent: string; 
str value: string; 
bcursor: int; 
padding: string; 
1: 


transactions ( 
indent: string; 
str value: string; 
bcursor: int; 


ІШ? 


padding: string; 
}; 


transaction ( 
indent: string; 
str value: string; 
bcursor: int; 
padding: string; 
йн 


action expression ( 
str value: string; 
bcursor: int; 
ecursor: Int; 
padding: string; 
length: Int; 

йг 


action 1151 ( 
str value: string; 
bcursor: Int; 
ecursor: int; 
padding: string; 
length: int; 
); 


alternatives ( 
str value: string; 
bcursor: int; 
ecursor: int; 
padding: string; 


length: int; 
m 
guard ( 
str value: string; 
bcursor: int; 
ecursor: int; 
padding: string; 
length: Int; 
}; 
temporais { 
Indent: string; 
str_value: string; 
beursor: Int; 
padding: string; 
у 
temporal { 


Indent: string; 
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str value: string; 

bcursor: int; 

padding: string; 
15 


formai parameters ( 
indent: string; 
str value: string; 
bcursor: int; 
ecursor: int; 
padding: string; 
}; 


formai arguments ( 
str value: string; 
bcursor: int; 
ecursor: int; 
padding: string; 
}; 


fieid list ( 
Str value: string; 
bcursor: int; 
ecursor: int; 
padding: string; 


length: int; 
| 
fieid ( 
str vaiue: string; 
bcursor: int; 
ecursor: int; 
padding: string; 
lengtn: int; 
ЈЕ 
type spec ( 
str value: string; 
bcursor: int; 
ecursor: int; 
padding: string; 
length: int; 
ЈЕ 
name 115% ( 


str value: string; 
beursor: int; 
ecursor: int; 
padding: string; 
length: int; 
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optional name ( 
indent: string; 
str value: string; 
bcursor: Int; 
ecursor: int; 
padding: string; 
length: Int; 

}; 


parametr ized name ( 
str value: string; 
bcursor: int; 
ecursor: int; 
padding: string; 
length: Int; 
); 


actuai parameters ( 
str value: string; 
bcursor: int; 
ecursor: Int; 
padding: string; 
length: int; 

DE 


actual arguments ( 
str vaiue: string; 
bcursor: int; 
ecursor: int; 
padding: string; 
length: int; 
}; 


arg list ( 
str value: string; 
bcursor: Int; 
ecursor: Int; 
padding: string; 
length: Int; 
); 


arg ( 
str value: string; 
bcursor: Int; 
ecursor: Int; 
padding: string; 
iength: Int; 
); 


expression iist ( 
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str value: string; 
bcursor: int; 
ecursor: int; 
padding: string; 
length: int; 

); 


expression ( 
str value: string; 
bcursor: int; 
ecursor: Int; 
padding: string; 
length: Int; 
}; 


middie cases { 
str value: string; 
beursor: int; 
padding: string; 


length: int; 

Ја 

quantifier { 
str value: string; 
bcursor: int; 
ecursor: int; 
padding: string; 
length: int; 

E 


restriction ( 
str value: string; 
bcursor: int; 
ecursor: int; 
padding: string; 
length: Int; 

); 


literal ( 
str value: string; 
bcursor: int; 
ecursor: int; 
padding: string; 
length: int; 

}; 


expressions ( 
str value: string; 
bcursor: int; 
ecursor: int; 
padding: string; 
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length: int; 
) 


pair list ( 
str value: string; 
beursor: int; 
ecursor: Int; 
padding: string; 


length: Int; 
Js 
pair ( 
str value: string; 
bcursor: int; 
ecursor: int; 
padding: string; 
length: Int; 
J; 
units { 
str_value: string; 
bcursor: int; 
ecursor: Int; 
padding: string; 
length: Int; 
J; 


operator 1151 ( 
str value: string; 
bcursor: Int; 
ecursor: int; 
padding: string; 
length: Int; 
}; 


operator symboi ( 
str value: string; 
beursor: Int; 
ecursor: Int; 
padding: string; 
length: int; 
№ 


comment ( 
str value: string; 
beursor: Int; 
length: Int; 
| 


| attribute declarations for terminal symbols 


117 


INTEGER LITERAL ( 
atext: string; 


); 


REAL LITERAL ( 
Хїехї: string; 
Js 


CHAR LITERAL ( 
atext: string; 


Ур 


STRING LITERAL ( 
Хех: string; 


| 
МАМЕ ( 
atext: string; 
№ 
СОММЕКТ ( 
Xtext: string; 
yg 
5% 


| productions of the grammar 


start 
: comment spec 
{ 
&output([comment.str value, spec.str value]); 
зрес. |пдеп* = ""; 
comment.bcursor - 0; 
) 
$рес 
: spec module 
( 
тойи!е.!пбепї = $рес[1].!пбепї; 
spec[2].Indent = spec[1].Indent; 
spec[1].str value - [spec[2].str value, module.str value]; 
) 
i 
{ 
spec.str value - ""; 
) 
| A production wlth nothing after the "!" means the empty str ing 


118 


! is a legal repiacement for the left hand side. 


module 
: function 
{ 
function.Indent = module. indent; 
module.str_value = function.str_value; 
} 
і machine 
{ 
machine.Indent = module. indent; 
module.str_value = machine.str_value; 
} 
| type 
( 
type.indent = module. indent; 
module.str value - type.str value; 
у 
| definition 
( 
definition.Indent s module. indent; 
module.str value » definltlon.str value; 
) 
{ Instance | of a generic module 
{ 
instance. indent = module. Indent; 
module.str_value = Instance.str value; 
} 
function 
: optionaiiy virtuai FUNCTION interface messages concepts END comment 
( * 
comment.bcursor + 0; 
optionally virtual.bcursor -» len(functlon. Indent); 
Interface. indent = [{function.Indent, spaces(3)]; 
messages.indent = [functlon. indent, spaces(3)]; 
concepts. indent = [functlon.Indent, spaces(3)]; 
Interface .bcursor = optionally virtual.ecursor + 9; 
Interface.padding = [spaces(optlonally virtual.ecursor), spaces(9)]; 
messages.bcursor = len(messages. indent); 
messages.padding = messages. Indent; 
concepts.bcursor = len(concepts.Indent); 
concepts .padding = concepts. indent; 
function.str_value = [optlonally virtual.str value, "FUNCTION", 
Interface.str vaiue, messages.str value, concepts.str value, "Wn", 
function. Indent, "ENO", comment.str value, "An", "An"]; 
) 


| Virtuai modules are for inheritance only, never used directly. 
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паспіпе 


: optionally virtual MACHINE interface state messages transactions temporals concepts 


END comment 
( 

comment.bcursor - 0; 

optionally virtual.bcursor « Іеп(паспіпе. Іпавпі); 

Interface.Indent = (machine.Indent, spaces(3)]; 

state.indent = [machIne.Indent, spaces(3)]; 

messages. Indent = [machine.Indent, spaces(3)]; 

transactlons.Indent = [machIne.Indent, spaces(3)]; 

temporals.Indent = [machine.Indent, spaces(3)]; 

concepts.Indent = [machine.Indent, spaces(3)]; 

Interface.bcursor = optionally virtual.ecursor + 8; 

Interface padding = [spaces(optlonally virtual.ecursor), spaces(8)]; 

state.bcursor = len(state. indent); 

state.padding = state. Indent; 

messages.bcursor = len(messages. indent); 

messages .padding = messages. Indent; 

transactlons.bcursor = len(transactions. indent); 

transactions.padding = transactions. Indent; 

temporals.bcursor = len(temporals. indent); 

temporals.padding = temporals.Indent; 

concepts.bcursor = len(concepts. Indent); 

concepts.padding = concepts. indent; 

machine.str_value = [optionally virtual.str_value, “MACHINE ", 
Interface.str value, state.str value, messages.str value, 
transactlons.str value, temporals.str value, concepts.str value, "^n", 
machine.Indent, "END", comment.str value, "An", "Nn"]; 


type 


: optionally virtual TYPE interface mode! messages transactions temporals concepts 


ЕКО comment 

{ 
comment.bcursor = 0; 
optionally virtual.bcursor - len(type.Indent); 
interface.Indent - [type.Indent, spaces(3)]; 
model.indent - [type.Indent, spaces(3)]; 
messages. indent » [type.Indent, spaces(3)]; 
transactlons.Indent = [type.|Indent, spaces(3)]; 
temporals.Indent = [type.Indent, spaces(3)]; 
concepts. |Indent = [type.Indent, spaces(3)]; 
Interface .beursor = optionally virtual.ecursor + 5; 
Interface.padding - [spaces(optionally virtual.ecursor), spaces(5)]; 
model .bcursor = len(model. indent); 
model .padding = model. indent; 
messages.bcursor = len(messages. indent); 
messages .padding = messages. indent; 
transactlons.bcursor = len(transactlons. Indent); 
transactlons.padding = transactions. indent; 
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def initi 


temporais.bcursor len(temporais.indent ); 
temporals.padding = temporais.indent; 
concepts.bcursor = len(concepts. indent); 
concepts.padding = concepts. indent; 


type.str value = [optionally virtual.str_vaiue, “TYPE ", interface.str_vaiue, 


modei.str vaiue, messages.str vaiue, transactions.str value, 
temporais.str value, concepts.str vaiue, "Nn", type.indent, 
comment.str value, "n", “Ал”; 


on 


: DEFINITION interface concepts END comment 


( 


instance 


: optionally virtuai INSTANCE parametrized name '«' parametrized name comment hide 


re 


( 


comment.bcursor + 0; 

interface.indent - [definitlon.indent, spaces(3)]; 
concepts.|indent = [definition.indent, spaces(3)]; 
Interface.bcursor » ien(defInition.indent) + 11; 
interface.padding » [definition.indent, spaces(11)]; 
concepts.bcursor = ien(concepts.Indent); 

concepts.padding = concepts. indent; 

definition.str_value = ["\n", definition.indent, "DEFINITION ", 


Interface.str vaiue, concepts.str vaiue, "^n", "END", comment.str vaiue, 


"хо"; 


names END comment 


optionaliy virtual.bcursor -» len(instance.indent); 

hide.indent - [instance.indent, spaces(3)]; 

renames.indent » [Instance.Indent, spaces(3)]; 

comment[1].bcursor « parametrized name[2].ecursor; 

comment[2].bcursor + 0; 

parametrized name[1].bcursor - optionally virtual.ecursor « 
ien( instance. indent) + 9; 


parametrized _name[1].padding = [spaces(optionaliy virtual.ecursor), spaces(9)]; 
parametrized name[2].bcursor = parametrized name[1].ecursor + 3 <= 80 


-» parametrized name[1].ecursor + 3 
+ len(parametr ized _name[1]).padding) + 2; 
parametrized name[2].padding = parametrized _name[1].padding; 
hide.bcursor = len(hide.indent); 
hide.padding = hide. indent; 
renames.bcursor = len(renames. indent); 
renames .padding = renames. indent; 
instance.str_value = parametrized name[1].ecursor + 3 <= 80 


-> ["\n", Instance.Indent, optionaily virtual.str value, "INSTANCE ", 
parametrized name[1].str_vaiue, “= ", parametrized _name[2).str_vaiue, 


"END", 


comment[1].str value, hide.str value, renames.str value, "An", 
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"An" 


э 


Instance.Indent, "END", comment[2].str value, "Nn", “\n"] 

# ["\n", Instance. indent, optionally virtual.str value, "INSTANCE ", 
parametrized name[1].str value, "n", parametrized name[1].padding, "= " 
parametrized name[2].str value, comment[1].str value, hide.str value, 
renames.Str value, "An", Instance.Indent, "END", comment[2].str value, "Wn", 
ЕТИ 


? 


) 

| Рог making Instances or partiai instantiatlons of generic modules, 
| and for making interface adjustments to reusable components 

| by hiding or changing some names. 


interface 
: NAME formal parameters comment inherits imports export comment 
( 

formal parameters.indent = Interface. indent; 

inher its. indent = interface. Indent; 

Imports.Indent = Interface. Indent; 

export. Indent = Interface. indent; 

comment[1].bcursor - formal parameters.ecurSor » 0 
-» formai parameters.ecursor 
# 0; 

comment[2].bcursor = 0; 

formal parameters.bcursor = Interface.bcursor + len(NAME .Ztext); 

formal parameters .padding = [Interface.padding, spaces(len(NAME .2text))]; 

inher its.bcursor = lend inherits. indent); 

|пћег 1,5. рада |пд = Inherits. Indent; 

Imports.beursor = len( Imports. indent); 

Imports.padding = Imports. Indent; 

export .beursor = len(export.Iindent); 

export.padding = export. Indent; 

Interface.str value - [NAME.Xtext, formal parameters.str value, 
comment[1].str value, inherits.str value, imports.str value, export.str value, 
comment[2].str value]; 


| This part describes the static aspects of a module's Interface. 

| The dynamic aspects of the interface are described in the messages. 
| A moduie is generic iff it has parameters. 

i The parameters can be constrained by a WHERE ciause. 

| A moduie can inherit the behavlor of other modules. 

| А module can import concepts from other modules. 

{ А module can export concepts for use by other modules. 


Inherits 


: Inherits INHERIT parametrized_name comment hide renames comment 
{ 
comment({1].bcursor = parametrized _name.ecursor ; 
comment[2].dcursor = 0; 
Inherits[2].Indent = Inherlts[1]. Indent; 
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піде 


hide.indent = [Inherits[1].Indent, spaces(3)]; 

renames.indent = [Inherits[1].indent, spaces(3)]; 

parametrized name.beursor = len(Inherits.indent) + 8; 

parametrized name.padding = [Inherits.Indent, spaces(8)]; 

hide.bcursor = len(hide.indent); 

hlde.padding = hide. indent; 

renames .bcursor = len(renames. Indent); 

renames .padding = renames. indent; 

Inherits[1].str value - [Inherits[2].str vaiue, "n", Inherits[1]. Indent, 
"INHERIT ", parametrized name.str value, comment[1].str value, hide.str value, 
renames.str value, comment[2].str value]; 

1 


( 
Inherits.str value - "7; 


3, 


) 


| ancestors are generalizations or simplified views of a moduie 
| an actor inherits ail of the behavior of Its ancestors 


: HIDE name list comment 


( 
name llst.bcursor » hide.bcursor + 5; 
name list.padding - [hide.padding, spaces(5)]; 
сотпепї .бсигѕог = папе 1 15 .есигѕог; 
hide.str_value = ["\n", hide.indent, "HIDE ", name list.str value, 
comment.str value]; 
) 


( 
hlde.str value - ""; 


) 


| Useful for providing limited views of an actor. 
| Different user classes may see different views of a system. 
| Messages and concepts can be hidden. 


renames 
: renames RENAME NAME AS NAME comment 


( 
renames[2]. indent = renames[1]. Indent ; 
renames[2].bcursor s renames[1].bcursor; 
renames[2].padding » renames[1].paddIng; 
comment .bcursor = (len(renames[1].Indent) + 7 + len(NAME[1].%text) <= 80) 
&& (len(renames[1].Indent) + 7 + len(NAME[1].%text) + 4 + 
jen(NAME[2].%text) > 80) 
-> len(renames[1].padding) + 6 + len(NAME[2].%text) 
ж ien(renames[1].indent) + 11 + len(NAME[1].%text) + len(NAME[2].%text); 
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renames[1].str_value = (len(renames[1].Indent) + 7 + len(NAME[1].%text) <= 80) 
&& (len(renames[1].Indent) + 7 + len(NAME[1].4text) + 4 + 
len(NAME[2].%text) > 80) 

-> [renames[2].str_value, “\n", renames[1].Indent, “RENAME “, NAME[1].%text, 
"^n", renames[1].padding, spaces(3), "AS ", NAME[2].Z%text, 
comment.str value] 

* [renames[2].str value, "n", renames[1].Indent, "RENAME ", NAME[1].4text, 
" AS ", NAME[2].Xtext, comment.str value]; 

} 


{ 
renames.str value - ""; 


) 


| Renaming Is useful for preventing name conflicts when Inheriting 
| from multiple sources, and for adapting modules for new uses. 

| The parameters, model and state components, messages, exceptions, 
| and concepts of an actor can be renamed. 


Imports 
: Imports IMPORT name list comment FROM parametrized name comment 
( 
Imports[2].Indent = imports[1]. Indent; 
comment[2].bcursor - parametrized name.ecursor; 
comment[1].bcursor - name |lst.ecursor; 
Imports[2].bcursor Imports[1].bcursor ; 
Imports[2].padding = Imports[1].padding; 
name llst.bcursor len(Imports[1].padding) « 7; 
name list.padding - [Imports[1].padding, spaces(7)]; 
parametrized name.bcursor - Imports.bcursor + 8; 
parametrized name.padding = [Imports[1].padding, spaces(8)]; 
Imports[1].str value - [Imports[2].str value, "in", Imports[1].Indent, 
"IMPORT ", name list.str value, comment[1].str value, "Mn", Imports[1].Indent, 
spaces(3), "FROM ", parametrized name.str value, comment[2].str value]; 


) 
і 
( 
Imports.str value - "7; 
) 
export 
: EXPORT name list comment 
( 


name list.bcursor - export.bcursor + 7; 

comment .bcursor = name_|Ist.ecursor; 

name_list.padding = [export.padding, spaces(7)]; 

export.str_value = ["\n", export.Indent, “EXPORT”, name_list.str_value, 
comment.str value]; 
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export.str value = "7; 
) 


nessages 
: Ressages message 
( 
messages[2].Indent = messages[1]. Indent; 
message.indent = messages[1]. indent; 
messages[2].bcursor = messages[1].bcursor; 
messages[2].padding - messages[1].padding; 
message.bcursor = messages[1].bcursor; 
message .padding = messages[1].padding; 


messages[1].str value - [messages[2].str value, message.str value]; 


( 


messages.str value - ""; 


) 


message 
: MESSAGE message header operator comment response 
{ 
message header.indent = [message. indent, spaces(3)]; 
operator .indent = [message.Indent, spaces(3)]; 
response. indent = [message.Indent, spaces(3)]; 
comment .bcursor = operator .ecursor; 
message header .bcursor = message.bcursor + 8; 
message header.padding = [message.padding, spaces(8)]; 
operator .bcursor = message header .ecursor > 0 
-> message header .ecursor 
н message header .bcursor ; 
operator .padding = spaces(operator .bcursor ); 
response.bcursor = len(response. indent); 
response.padding = response. indent; 
message.str value -» ["Nn", "n", message.|Indent, "MESSAGE ", 


message header.str value, operator.str value, comment.str value, 


response.str value]; 


response 
: response body 
( 
response body.Indent - response.|ndent; 
response body.bcursor = response.bcursor ; 
response _body.padding = response .padd Ing; 
response.str value - response body.str value; 
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) 


| response cases 


{ 


response _cases.indent = response. indent; 
response cases.bcursor » response.bcursor ; 
response cases.padding - response.padding; 
response.str value - response cases.str value; 


response cases 
: WHEN expression list comment response body response cases comment 


( 


response body.Indent - [response cases[1].!ndent, spaces(3)]; 

response cases[2].Indent - response cases[1]. indent ; 

comment[1].bcursor - expresslon list.ecursor; 

comment[2].bcursor + 0; 

expresslon lIst.bcursor - response cases[1].bcursor + 5; 

expression Iist.padding - [response cases[1].padding, spaces(5)]; 

response body.bcursor - response cases[1].bcursor; 

response body.padding - response cases[1].padding; 

response cases[2].bcursor - response cases[1].bcursor; 

response cases[2].padding - response cases[1].padding; 

response cases[1].str value » ["Nn", response cases[1].Indent, "WHEN >", 
expression list.str value, comment[1].str value, response body.str value, 
response cases[2].str value, comment[2].str value]; 


) 


| OTHERWISE response body 


( 


response body.Indent - [response cases.Indent, spaces(3)]; 

response body.bcursor - response cases.bcursor + 10; 

response body.padding = [response cases.padding, spaces(10)]; 

response cases.str value - ["Mn", response cases.Indent, “OTHERWISE 7", 
response body.str value]; 


) 


response body 
: choose reply sends transition comment 


( 


comment.bcursor + 0; 

choose. indent - response body.Indent; 
reply.indent - response body. Indent; 
sends.Indent - response body.Indent; 
transition.Iindent » response body. Indent; 
choose .bcursor = len(choose. indent); 
choose .padding = choose. Indent; 
reply.bcursor = len(reply. indent); 
reply.padding = reply. Indent; 
sends.bcursor = len(sends. Indent); 
sends .padding = sends. indent; 
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transition.bcursor = len(transition. indent); 

transition.padding = transition. indent; 

response body.str value - [choose.str value, reply.str value, sends.str value, 
transitlon.str vaiue,comment.str value]; B 


choose 
: CHOOSE '(* fleld list restriction ')' comment 
( 
fleld list.bcursor » choose.bcursor + 7 < 80 
-» choose.bcursor « 7 
# choose.bcursor + 3; 
comment .bcursor = restrictlon.ecursor + 1; 
fleid_Ilst.padding = choose.bcursor + 7 < 80 
-> [choose.padding, spaces(7)] 
* [choose.padding, spaces(3)]; 
restriction.beursor = fleid_|ist.ecursor + restriction.iength + 1 <= 80 
-» fleid iist.ecursor 
а len(fleld lIst.padding); 
restriction.padding = choose.bcursor + 7 « 80 
-> [choose.padding, spaces(7)] 
* [choose.padding, spaces(3)]; 
choose.str value «+ (choose.bcursor « 7 « 80) && (restriction. length == 0) 
-> ["\n", choose.Indent, "CHOOSE(", field list.str value, restriction.str value, 
")', comment.str vaiue] 
# (choose.bcursor + 7 >= 80) 8& (restrictlon. length == 0) 
-> ["\n", choose.indent, "СНОО5Е","Ап", spaces(choose.bcursor), spaces(3), “(”, 
fleid_list.str_vaiue, restriction.str_vaiue, ")", comment.str vaiue] 
“ (сһоо5е.Әсигвог « 7 « 80) && (field list.ecursor « 
restriction.iength «4 1 <= 80) 
-» ГМ”, choose.indent, "CHOOSE(", field lIst.str value," ", 
restriction.str vaiue, ^)", comment.str value] 
* (choose.bcursor + 7 >= 80) && (fleld_Ilst.ecursor + 
restrictlon.length + 1 <= 80) 
-> ["\n", choose.indent, “CHOOSE”,“\n", spaces(choose.bcursor), spaces(3), "(", 
fleid list.str value, " ", restriction.str value, ")", Comment.str value) 
* (choose.bcursor « 7 « 80) && (field list.ecursor + 
restrictlon.length « 1 > 80) 
-> ["\n", choose. Indent, “CHOOSE(”, fleld IIst.str_value,“\n", 
fleid list.padding, restriction.str value, ")", comment.str value] 
«о [^Wn^, choose. indent, "CHOOSE","Nn", spaces(choose.bcursor), spaces(3), 
"С, бе! list.str уаїце,"Мп", fleid list.padding, restrictlon.str value, 
7)", comment.str value]; 


choose.str value s **; 
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гер!у 


: REPLY message header comment where 


( 


) 


comment.bcursor - message header.ecursor » 0 
-> message header .ecursor 
% 0; 
message _header.indent = reply. indent; 
where. Indent = [{reply.Indent, spaces(3)]; 
message header .beursor = reply.bcursor + 6; 
message header .padding = [reply.padding, spaces(6)]; 
where .beursor = len(where. indent); 
where.padding = where. Indent; 
reply.str_value = ["\n", reply.Indent, “REPLY ", message_header.str_value, 
comment.str value, where.str value]; 


| GENERATE message header comment where |! used in Iterators 


( 


sends 


comment.bcursor - message header.ecursor » 0 
-» message header.ecursor 
* 0; 
message header.Indent s reply.Indent; 
where.Indent = [reply.Indent, spaces(3)]; 
message header.bcursor - reply.bcursor + 9; 
message header.padding - [reply.padding, spaces(9)]; 
where.bcursor = len(where.Indent); 
where .padding = where. Indent; 
reply.str_value = ["\n", reply.Indent, "GENERATE ", message header.str_value, 
comment.str value, where.str value]; 


reply.str value - ""; 


: sends send 


( 


sends[2].Indent » sends[1].Indent; 

send. Indent = sends[1]. indent; 

sends[2].bcursor = sends[1].bcursor; 

sends[2].padding = sends[1].padding; 

send.bcursor = sends[{1].bcursor; 

send.padding - sends[1].padding; 

sends[1].str value - [sends[2].str value, send.str value]; 


sends.str value - ""; 


128 


send 
: SEND message header TO parametrized name comment where foreach 
( 

comment.bcursor - parametrized name.ecursor; 

message header.indent s [send.indent, spaces(3)]; 

where.indent » [send.indent, spaces(3)]; 

foreach.Indent s [send.Indent, spaces(3)]; 

message header .bcursor = send.bcursor + 5; 

message header .padding = [send.padding, spaces(5)]; 

parametrized name.bcursor = send.bcursor + 3; 

parametrized _name.padding = [send.padding, spaces(6)]; 

where.bcursor = len(where. indent); 

where.padding = where.indent; 

foreach.bcursor s jien(foreach. indent); 

foreach.padding = foreach. indent; 

send.str_vaiue = ["\n", send.indent, “SEND ", message header.str_vaiue, “\n", 
send.indent, spaces(3), "TO ", parametrized name.str value, comment.str value, 
where.str value, foreach.str value]; 


transition 
: TRANSITION expresslon_list comment i for describing state changes 
{ 
expression list.bcursor - transition.bcursor + 11; 
comment.bcursor « expression iist.ecursor; 
expression list.padding « [transition.padding, ѕрасеѕ(11) ]); 
transition.str value « ["Nn^, transition.indent, "TRANSITION ", 
expression iist.str vaiue, comment.str value]; 


transition.str vaiue є "7; 


message header 
: optionai exception optional name formal arguments 
( 
optional name.indent = message header .indent; 
optional _exception.indent = message header .padding; 
optional_exception.bcursor = message header .bcursor ; 
optional _exception.padding = message header .padding; 
optionai name.bcursor » optional exception.ecursor; 
optionai name.padding - spaces(optional exception.ecursor); 
forma| arguments.bcursor » optional name.ecursor < 0 
-» Optional name.bcursor 
# optional _name.iength == 0 
-> optional _name.ecursor 
+ len(optional_name. indent); 
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where 


formal arguments.padding » spaces(formal arguments .bcursor); 
message header.ecursor - formal arguments .ecursor; 
message header.str value - optional name.ecursor « 0 
-» [optional exception.str value, optional name.str value, optional name.indent, 
formal arguments.str value] 
* optional name.length == 
-» [optlonal exceptlon.str value, optlonal name.str value, 
formal arguments.str value] 
+ [optlonal exception.str value, optional name.str value, "An", 
optional name.Indent,formal arguments.str value]; 


: WHERE expression list comment 


( 


. 
, 


comment.bcursor - expresslon llst.ecursor; 

expression list.bcursor - len(where.Indent) + 6; 

expresslon list.padding - (where.indent, spaces(6)]; 

where.ecursor = comment.length > 0 
zj 
* expresslon list.ecursor; 

where.str value » ["An", where.Indent, "WHERE ", expression list.str value, 
comment.str value]; 


Хргес SEMI | must have a lower precedence than WHERE 


where.ecursor = where.bcursor; 


where.str value = ""; 


optionally virtual 
: VIRTUAL 


( 


) 
{ 


} 


optionally virtual.ecursor - optionally virtual.bcursor + 8; 
optlonally virtual.str value = ["\n", "VIRTUAL "J; 


optionally virtual.ecursor » optionally virtual.bcursor + 0; 
optionally virtual.str_value = “"; 


optional except lon 
: EXCEPTION 


( 


) 


optlonal exception.ecursor - optional exception.bcursor + 10; 
optional exception.str value - "EXCEPTION "; 
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| prec SEMI 


( 
optional exception.ecursor = optional _exception.bcursor; 
optional exception.str_value = “"; 
} 
operator 
: Operator OPERATOR operator llst 
( 


operator[2].bcursor s» operator(1].bcursor; 

operator[2].padding - operator[1].paddIng; 

operator list.bcursor s operator(2].ecursor « 10 « operator list.length «- 80 
-> operator[2].ecursor + 10 В 
* len(operator[1].padding) + 9; 

operator_list.padding = spaces(operator list.bcursor); 

operator[1].ecursor - operator list.ecursor; 

operator[1].str value - operator[2].ecursor « 10 « operator list.length <= 80 
-> [operator[2].str value, " OPERATOR ", operator list.str value] 
*  [operator(2].str value, "An", operator[1].padding, “OPERATOR ", 

operator list.str value]; 


) 
і 
{ 
operator.ecursor = operator .bcursor; 
operator.str value - ""; 
) 
foreach 
: FOREACH '(* fleld list restriction ')' comment 
( 


field list.bcursor » foreach.bcursor « 8 « 80 
-» foreach.bcursor « 8 
* len(foreach.Indent) + 4; 
fleld_Ilst.padding = [foreach.padding, spaces(8)]; 
restrictlon.bcursor » field list.ecursor; 
restriction.padding - #1е19 1151 рада! па; 
comment.bcursor s restriction.ecursor + 1; 
foreach.str value » (foreach.bcursor « 8 « 80) && (restrictlon.length == 0) 
-> ["An*, foreach.Indent, "FOREACH(", fleld lIst.str value, 
restriction.str value, ")", comment.str value] 
* (foreach.bcursor + 8 >= 80) && (restriction.length == 0) 
=> [“\п”, foreach.Indent, "FOREACH", "Mn", foreach.Indent, spaces(3), “(", 
fleld list.str value, restrictlon.str value, ")", comment.str value] 
* (foreach.bcursor « 8 « 80) && (restrictlon.length > 0) 
-> Им“, foreach.Indent, "FOREACH(", fleld list.str value, " *, 
restriction.str value, ")", comment.str value] 
ж ("Мп“, foreach.Indent, "FOREACH", "An", foreach.Indent, spaces(3), "(", 
fleld lIst.str value, " ", restriction.str value, ")", comment.str value]; 
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( 


foreach.str_value = ""; 
) 
; 


! FOREACH is used to describe a set of messages to be sent. 


concepts 
: concepts concept 
{ 
concept. Indent = concepts[1].Indent; 
concepts[2].Indent = concepts[1].Indent; 
concepts[2].bcursor = concepts[1].bcursor; 
concepts[2].padding = concepts[1]}.padding; 
concept .bcursor = concepts[1].bcursor; 
concept.padding = concepts[1].padding; 
concepts[1].str_value = [concepts[2].str_value, concept.str_value]; 


{ 


concepts.str_value = ""; 


} 


concept 
: CONCEPT NAME formal parameters ':' type spec comment where 
| constants 
( 
comment.bcursor - type spec.ecursor; 
formal parameters.Indent - [concept.indent, spaces(3)]; 
where.Indent = [concept.Indent, spaces(3)]; 
formal _parameters.beursor = concept.bcursor + 8 + len(NAME.2text); 
formal parameters.padding = [concept .padding, spaces(8), spaces(len(NAME.%text))]; 
type_spec.bcursor = formal parameters.ecursor < 0 
-> len(formal_ parameters .padding) + 2 
+ formal parameters.ecursor + 2 <= 80 
-> formal parameters.ecursor + 2 
* len(formal parameters.padding) * 2; 
type spec.padding - formal parameters.padding; 
where.bcursor = len(where.Indent); 
where.padding = where. Indent; 
concept.str_value = formal parameters.ecursor < 0 
-> ["\n", "\n", concept.Indent, "CONCEPT ", NAME .%text, 
formal parameters.str value, "n", formal parameters.padding, ": ", 
type spec.str value, comment.str value, where.str value] 
*& formal parameters.ecursor + 2 <= 80 
-> ГМ", "Ма, concept.indent, “CONCEPT ", NAME.%text, 
formal parameters.str value, ": ", type spec.str value, comment.str value, 
where.str value] 
зо р'Ап", "Ал", concept. Indent, "CONCEPT ", NAME. ztext, 
formal parameters.str value, "An", formal parameters.padding, ": ", 
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) 


type spec.str value, comment.str value, where.str value]; 


| CONCEPT NAME formal parameters formal arguments where VALUE formal arguments where 


( 


воде! 


functions 


formal parameters.Indent - [concept.Indent, spaces(3)]; 
where[1].Indent = [concept.Indent, spaces(3)]; 
where[2].indent - [concept.Indent, spaces(3)]; 
formal parameters.bcursor - concept.bcursor « 8 + len(NAME.%text); 
formal parameters.padding = [concept.padding, spaces(8), spaces(len(NAME.%text))]; 
formal _arguments[1].bcursor = formal _parameters.ecursor > 0 
-> formal parameters.ecursor 
ж len(formal parameters.padding); 
formal _arguments[1].padding = formal parameters .padding; 
where[1].bcursor » ien(where[1].Indent); 
where[1].padding - where[1].Indent ; 
formai arguments[2].bcursor » len(concept.padding) + 3 + 6; 
formai arguments[2].padding = [concept.padding, spaces(3), spaces(6)]; 
where[2].bcursor = len(where[2]. indent); 
where[2].padding = where[2]. indent; 
concept.str_vaiue = [“\n", “\n", concept.Indent, "CONCEPT ", NAME.Ztext, 
formai parameters.str value, formal arguments[1].str value, where[1].str value, 
“ха”, concept.Indent, spaces(3), "VALUE ", formal arguments[2].str value, 
where[2].str value]; 


| data types have conceptual modeis for values 


: MODEL formal arguments Invariant 


( 


) 


invariant.Indent = [model.indent, spaces(3)]; 

formal _arguments.bcursor = len(model .Іпдепі) з 6; 

formal_arguments.padding = [model.Indent, spaces(6)]; 

invariant.beursor = len(invarlant. indent); 

Invariant .padding = Invariant.Indent; 

model.str value - [“\n", "Ал", model.Indent, "MODEL ", formal arguments.str value, 
Invariant.str value]; 


| MODEL formal arguments Invarlant Initially 


| 
( 


Initlally clause specifles automatic varlable Initlallzation 


Invarlant.Indent = [model.Indent, spaces(3)]; 
Initially. Indent = [model.Indent, spaces(3)]; 
formal _arguments.bcursor = len(modei.indent) + 6; 
formal arguments .padding = [model.Indent, spaces(6)]; 
Invariant.beursor = len(Invarlant.Indent); 
Invarlant.padding = Invarlant.Indent; 
Initlally.beursor = len(Initially. indent); 
Initlally.padding = Initlally. indent; 
mode|.str value = ["\n", "Ап", model.Indent, "MODEL ", 
formal arguments.str value, Invarlant.str value, Initially.str value]; 


133 


. 
э 


state | machines have conceptual models for states 
: STATE formai arguments invariant initially 
( 
invarlant.indent = [state.Indent, spaces(3)]; 
initially.indent = [state.indent, spaces(3)]; 
formal arguments.bcursor = len(state.Indent) + 6; 
formal _arguments.padding = [state.indent, spaces(6)]; 
Invariant.bcursor = len(Invarlant. indent); 
invar iant.padding = Invar lant. Indent; 
Initially.bcursor » lencinitlaliy.Indent); 
Initial ly.padding s initially.Indent; 
state.str value » ["Nn", "An", state.indent, "STATE ", formal arguments.str value, 
invariant.str value, initially.str value]; 


) 
Invar lant | Invariants are true In ali states 
: INVARIANT expression list comment 
( 


expression list.bcursor - Invariant.bcursor * 10; 

comment.bcursor - expression lIst.ecursor; 

expresslon IIst.padding - [Invarlant.padding, spaces(10)]; 

invarlant.str value -» ["An", Invarlant.Indent, "INVARIANT", 
expresslon iist.str value, comment.str value]; 


Initially | initial conditions are true only at the beginning 
: INITIALLY expression_iist comment 
{ 

expression_list.bcursor = initlally.bcursor + 10; 

comment .bcursor = expresslon_IIst.ecursor; 

expression_list.padding = [Initlaliy.padding, ѕрасеѕ(10) ]; 

initially.str_value = [°\n", initlally.indent, “INITIALLY ", 
expression list.str value, comment.str value]; 


+ 
Ж 


transact ions 
: transactions transaction 
й 
transactlons[2].|ndent » transactlons[1]. Indent ; 
transaction.indent = transactlons[1].Indent ; 
transactlons[2].bcursor = transactions[1].bcursor ; 
transactlons[2].padding = transactlons[1].padding; 
transactlion.bcursor = len(transactlon. indent); 
transactlon.padding = transaction. indent; 
transactlons[1].str_vaiue = [transactlons[2].str_value, transactlon.str_value]; 
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( 
transactions.str value - ""; 
) 
transaction 
: TRANSACTION parametrized name ‘=’ action expression comment where 
( 
comment .beursor = actlon_expresslon.ecursor; 
where.indent = [transactlon.Indent, spaces(3)]; 
parametrized name.bcursor - len(transaction.indent) + 12; 
parametrized name.padding = [transaction.Indent, spaces(12)]; 
action_expression.bcursor = parametrized name.ecursor + 3 <= 80 
-> parametrized _name.ecursor + 3 
% len(parametrized name.padding); 
action_expression.padding = parametrized_name.padding; 
where .bDcursor = len(where. indent); 
where .padding = where. indent; 
transaction.str_value = parametrized name.ecursor + 3 <= 80 
-» ["W^, "W^, transaction.Indent, "TRANSACTION ", 
parametrized name.str value, " - ", actlon expresslon.str value, 
comment.str value, where.str value] 
# [°\n", "\n", transaction.Indent, “TRANSACTION “, 
parametrized mame.str_vaiue, “ =", “\n", parametrized name.padding, 
actlon_expression.str_value, comment.str vaiue, where.str value]; 
) 
| Transactions are atomic. 
i The where clause can specify timing constraints. 


action expression 
: action expression ';' comment action list Хргес ЗЕМ! Isequence 
( 
action expression[1].length » action expression[2].length « 2 + comment.length 
+ action list.iength; 
comment.bcursor - action expression[2].ecursor * 2; 
action expresslon[2].bcursor - action expression[1].bcursor; 
action expression[2].padding - action expression[1].padding; 
action list.bcursor s comment.length » 0 
-> len(action_expression[1].padding) 
# action expresslon[2].ecursor + 2 <= 80 
-» action expression[2].ecursor + 2 
« len(action expression[1].padding); 
action list.padding - action expression[2].padding; 
action expression[1].ecursor = action list.ecursor; 
action expression[1].str value « comment.iength > 0 
-» [action expression[2].str value, ";", comment.str value, 
action list.str value] 
# action expression[2].ecursor « 2 <= 80 
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-» [action expression[2].str value, "; ", comment.str value, 
action list.str value] 
# [actlon expresslon[2].str value, ";", "Mn", comment.str value, 
action expresslon[1].padding, action iist.str value]; 
) 
1 ас оп 115% 
{ 
action expresslon.iength - action ilst.length; 
actlon_IIst.bcursor = actlon_expresslon.bcursor ; 
actlon_IIst.padding = actlon_expression.padding; 
action_expresslon.ecursor = actlon_iist.ecursor; 
action expression.str value « action list.str value; 


) 
action ist 
: action list action 1151 Жргес STAR | parallel 
( 


action list[1].length -» action Iist[2]. length « action list[3]. length; 
action list[2].bcursor » action list[1].bcursor; 
action list[2].paddIng » actlon iist[1].padding; 
action IIst[3].bcursor s action list[2].ecursor; 
action llist[3].padding - action Iist[1].padding; 
action list[1].ecursor » action list[3].ecursor; 
action list[1].str value » [action list[2].str value, action list[3].str value]; 
) 
| iF alternatives Fi | cholce 
{ 
action_list.length = 3 + alternatives.iength + 3; 
alternatives.bcursor s action iist.bcursor + 3 + alternatives.length <= 80 
-> actlon_Ilst.bcursor + 3 
# len(actlon_IIst.padding) + 3; 
alternatlves.padding = actlon_I|Ist.bcursor + 3 + alternatives.length <= 80 
-» [action lIst.paddIng, spaces(3)] 
* action list.padding; 
actlon_list.ecursor = alternatives.ecursor + 3 <= 80 
-» alternatlves.ecursor + 3 
# len(alternatives.padding) + 2; 
actlon_IIst.str_value = (actlon_ilst.bcursor + 3 + alternatives. length <= 80) 
&& (alternatives.ecursor 4 3 <= 80) 
-> ["IF ", alternatives.str value, " FI*] 
* (actlon lIst.bcursor « 3 « alternatives.length > 80) 
&& (aiternatives.ecursor « 3 <= 80) 
-> ["\п", actlon iIst.padding, "IF ", alternatives.str value, " FI"] 
# (actlon_I|st.bcursor + 3 + aiternatives. length <= 80) 
&& (alternatives.ecursor + 3 > 80) 
-» ["IF ", alternatives.str value,"Nn", alternatives.padding, "Fi"] 
*&— ["Nn^, action list.padding, "IF ", alternatives.str value, "Wn", 
alternatives.padding, "FI"]; 


) 
| DO aiternatives OD | repetition 
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1 
1 


( 


) 


action list.length - 3 « alternatives.length « 3; 
alternatives.bcursor = action list.bcursor « 3 « alternatives.length «- 80 
-» action list.bcursor + 3 
+ fen(action_IIst.padding) + 3; 
alternat!ves.padding » action list.bcursor + 3 « alternatives.length «- 80 
-» [action l!ist.padding, spaces(3)] 
* action llst.padding; 
action list.ecursor - alternatives.ecursor + 3 <= 80 
-» alternatives.ecursor + 3 
* len(alternatives.padding) + 2; 
action_IIst.str_value = (actlon_Ilst.bcursor + 3 + alternatives. length <= 80) 
&& (alternatives.ecursor + 3 <= 80) 
-> ["D0 ", alternatives.str_value, " 00") 
* (actlon list.bcursor + 3 + alternatlives.length > 80) 
&& (alternatives.ecursor + 3 <= 80) 
-> ["\n", actlon list.padding, "DO ", alternatives.str value, " 0D"] 
* (actlon list.bcursor « 3 * alternatives.length < 80) 
&& (alternatives.ecursor + 3 > 80) 
-> ["D0 ", alternatives.str_value,"\n", alternatives.padding, 700") 
# ["\n", actlon_Ilst.padding, "DO ", alternatives.str_value, "\п", 
alternat!ves.padding, 7007); 


parametrized _nane | a normal message 


{ 


} 


action !Ist.length = parametr Ized_name. length; 
рагатеїг 1260 пате.Бсигвог « ас оп 1151.Бсигвог; 
parametrized _name.padding = actlon_IIst.padding; 
actlon_list.ecursor = parametrized name.ecursor; 
action list.str value - parametrized _name.str_value; 


EXCEPTION parametrized name | an exception message 


( 


асї Гоп list.length - 10 « parametr!zed name.length; 

parametrized name.bcursor - action llst.bcursor « 10; 

parametrized name.padding « [action list.padding, spaces(10)]; 
action list.ecursor s parametrized name.ecursor; 

actlon list.str value « ["EXCEPTION ", parametrized name.str value]; 


alternatives 
: alternatives OR guard action expression 


( 


alternat!ves[1].length » alternatives[2].length « 3 « guard. length 
* action expression. length; 
alternatives[2].bcursor » alternatives[1].bcursor; 
alternat!ives[2].padding = alternat!ves[1].padding; 
guard.beursor = alternatives[2].ecursor + 3 <= 80 
-» alternatives[2].ecursor + 3 
ж len(alternatives[1].padding) + 2; 
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guard.padding = alternatives[1].padding; 
actlon_expresslon.beursor = guard.ecursor ; 
actlon_expresslon.padding = alternatives[1].padding; 
alternatives[1].ecursor » action expresslon.ecursor ; 
alternatives[1].str value - alternatlves[2].ecursor « 3 «- 80 
-» [alternatives[2].str value, " |j ", guard.str value, 
action expresslon.str value] 
# [alternatives[2].str value, "Nn", alternatives[1].paddIng, "i " 
guard.str value, actlon expresslon.str value]; 


з 


) 
| guard action expression 

( 
alternatives.length » guard.length « action expresslon. length; 
guard.bcursor = alternatives.bcursor; 
guard.padding = alternatives padding; 
actlon expresslon.bcursor - guard.ecursor; 
actlon_expresslon.padding = alternatives.padding; 
alternatives.ecursor = actlon_expresslon.ecursor ; 
alternatives.str value - [guard.str value, actlon expression.str value]; 


) 
guard 
: WHEN expresslon ARROW 
{ 
guard.length = 5 + expresslon. length + 3; 
expresslon.padding = spaces(expresslon.bcursor ); 
expression.bcursor = guard.bcursor + 5; 
guard.str_ value = expresslon.ecursor + 3 <= 80 
-» ["WHEN ", expresslon.str value, " -»", "WM", guard.padding] 
*.— ["WHEN ", expresslon.str value, "Nn", expresslon.padding, "-»", "МУ, 
guard.padding]; 
guard.ecursor = expression.ecursor + 3 <= 80 
-> len(guard.padding) 
# len(guard.padding) + 2; 
} 
i 
{ 
guard. length = 0; 
guard.ecursor » guard.bcursor; 
guard.str value - ""; 
) 
temporais 
: temporais temporal 
( 


temporais(2].Indent » temporais[1].Indent ; 
temporal.Indent - temporals[1].indent; 
temporais[2].bcursor » temporals[1].bcursor; 
temporals[2].padding = temporals[{1].padding; 
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{етрога|.Бсигзог = temporals[1].bcursor; 
temporal.padding = temporals.padding; 
temporals[1].str value = [temporals[2].str value,temporal.str value]; 


| 
( 


temporals.str value = ""; 


) 


. 
% 


temporal 
: TEMPORAL NAME where response 
( 
where.Indent = [temporal.Indent, spaces(3)]; 
response.|indent = [temporal.Indent, spaces(3)]; 
where.bcursor = len(where.indent); 
where .padding = where. indent; 
response.bcursor = len(response. indent); 
response .padding = response. indent; 


temporal.str value s ["Nn", "Nn", temporal.Indent, "TEMPORAL ", NAME.Ztext, 


where.str value, response.str value]; 


| Temporal events are trigged at absolute times, 
| In terms of the local clock of the actor. 

| The "where" describes the triggering conditions 
| In terms of "TIME" and "PERIOD". 


formal! parameters | parameter values are determined at specification time 


: ‘{(" fleld_list *)' where 
{ 
where.indent = formal parameters. indent; 
fleld lIst.bcursor = formal _parameters.bcursor + 1 < 80 
-» formal parameters.bcursor « 1 
+ len(formal parameters.padding) + 1; 
field lIst.padding -» [formal parameters.padding, spaces(1)); 
where.bcursor s len(where.Indent); 
where.padding - where.indent; 
formal parameters.ecursor - where.ecursor « 0 
-> Where.ecursor 
# where.ecursor <= where.bcursor 
-> 81814 list.ecursor + 1 
# where.ecursor; 
formal_parameters.str_value = formal _parameters.bcursor + 1 < 80 
-» ['C', fleld_list.str_value, “}", where.str_value] 
+ ["\n", formal_parameters.padding, “{", fleld_list.str_value, "}", 
where.str_value]; 


formal_parameters.ecursor = formal_parameters.bcursor ; 
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} 


formal parameters.str value - 


formal arguments | arguments are evaluated at run-time 
: '(* fleld list °)” comment 


( 


) 


comment.bcursor - fleld list.ecursor + 1; 
fleld_Ilst.bcursor = formal! arguments.bcursor « 1 < 80 
-» formal arguments.bcursor + 1 
* len(formal arguments.padding) * 1; 
fleld_IIst.padding = [formal _arguments.padding, spaces(1)]; 
formal _arguments.ecursor = comment.length == 
-» fleld list.ecursor + 1 
8-1, 
formal arguments.str value - formal arguments.bcursor « 1 « 80 
-> ["(", fleld list.str value, ")", comment.str value] 
* ["\п", formal arguments.padding, "(^, field lIist.str value, ")", 
comment.str value]; 


comment 


( 


comment.bcursor - formal arguments.bcursor; 
formal arguments.ecursor - formal arguments.bcursor; 
formal arguments.str value - comment.str value; 


) 
fleld IIst 
: fleld list *,* fleld 
( 
fleld Iist[1].length - fleld list[2].length « 2 « fleld.length; 
fleld list[2].bcursor - fleld list[1].bcursor; 
fleld_IIst{2].padding = fleld_I|lst{1].padding; 
fleld.bcursor = fleld_list[2].ecursor + 2 <= 80 
-» fleld list[2].ecursor + 2 
* len(fleld lIst[1].padding); 
fleld.padding = fleld_Iist[1].padding; 
fleld IIst[1].ecursor - field.ecursor; 
fleid list[1].str value - fleld lIst[2].ecursor + 2 <= 80 
-» [fleld lIst[2].str value, ", ", fleld.str value] 
+ [fleld list[2].str value, ",", "Nn", fleld IIst[1].padding, field.str value]; 
) 
| fleld 
( 
fleld list. length = fleld. length; 
fleld.bcursor = fleld_list.bcursor; 
fleld.padding = fleld_Ilst.padding; 
fleld list.ecursor = fleld.ecursor; 
fleld_list.str_value = fleld.str_value; 
} 
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fleid 
: name list ':' type spec 
( 

field.length - name lIst.length « 2 « type spec.length; 

пате 1151 .рсигвог » fleld.bcursor; 

name_I|lst.padding = fleld.padding; 

type spec.bcursor - name list.ecursor « 2 « type spec.length <= 80 
-» name list.ecursor + 2 
^ jen(fleld.padding) - 2; 

type_spec.padding = fieid.padding; 

fleld.ecursor - type spec.ecursor; 

fleld.str value « name list.ecursor « 2 « type spec.length <= 80 
-» [name Ilst.str value, ": ", type spec.str value] 


» [name ilst.str value, "^n", fleld.paddiIng, ": ", type spec.str value]; 
) 
i ‘$’ МАМЕ ":" type spec 
( 


field.length - 1 « len(NAME.Ztext) « 3 « type spec.length; 
type spec.bcursor - fleld.bcursor « 3 « len(NAME.2text) « 1 
* type spec.length <= 80 
-» fleld.bcursor 4 3 + len(NAME.%text) 
* len(field.padding) + 3 + len(NAME.Ztext); 
type_spec.padding = fleld.padding; 
field.ecursor = type_spec.ecursor; 
fleid.str value » fleid.bcursor « 3 « len(NAME.Ztext) « 1 
* type spec.length «- 80 
-» ['$", NAME.Xtext, ": ", type spec.str value] 
8 [W, fleld.padding, "$", NAME.Xtext,": ", type spec.str value]; 


) 
por! 
( 
fleid.length = 1; 
field.ecursor = fleld.bcursor + 1 <= 80 
-> fleld.bcursor + 1 
ж len(fleld.padding) + 1; 
fleid.str_value = fleld.beursor+ 1 <= 80 
-> "7° 


ж ["\n", fleld.padding, "?"]; 


Туре зрес 
: parametrized name | name of a data type 
( 

type spec.length - parametrized name.length; 
parametrized name.bcursor » type spec.bcursor; 
parametr|zed name.padding » type spec.padding; 
type spec.ecursor s parametrized name.ecursor; 
type spec.str value - parametr|zed name.str value; 
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} 
| TYPE actual parameters 
( 
type spec.length - 4 « actual parameters.length; 
actual parameters.padding - type spec.padding; 
actual parameters.bcursor - type spec.bcursor + 4 <= 80 
-» type spec.bcursor + 4 
ж len(type_spec.padding) + 4 ; 
type spec.ecursor - actual parameters.ecursor; 
type spec.str value - type spec.bcursor + 4 <= 80 
-» ['TYPE", actual parameters.str value] 
* [“\п", type spec.padding, "TYPE", actual parameters.str value]; 
) 
| FUNCTION actual parameters 
( 
type spec.length « 8 « actual parameters.length; 
actual parameters.bcursor - type spec.bcursor + 8 <= 80 
-» type spec.bcursor 4 8 
ж len(type spec.padding) + 8; 
actual parameters.padding = type spec.padding; 
type _spec.ecursor = actual parameters.ecursor; 
type spec.str value - type spec.bcursor « 8 <= 80 
-» ['"FUNCTION", actual parameters.str value] 
ж ["M", type spec.paddiIng, "FUNCTION", actual parameters.str value]; 
) 
| MACHINE actual parameters 
( 
type spec.length - 7 « actual parameters.length; 
actual parameters.bcursor - type spec.bcursor + 7 <= 80 
-» type spec.bcursor + 7 
ж len(type_spec.padding) + 7; 
actual parameters.padding - type spec.padding; 
actual parameters.ecursor - actual parameters .ecursor; 
type spec.str value - type spec.bcursor + 7 <= 80 
-» ["MACHINE", actual parameters.str value] 
ж ["\n", type spec.padding, "MACHINE", actual parameters.str value]; 
) 
i ITERATOR actual parameters 
( 
type_spec.length = 8 + actual parameters. length; 
actual parameters.bcursor - type spec.bcursor + 8 <= 80 
-> {уре ѕрес.бсигѕог + 8 
# len(type_spec.padding) + 8; 
actual parameters .padding = type spec.padding; 
actual parameters.ecursor = actual parameters.ecursor; 
type_spec.str_value = type spec.bcursor + 8 <= 80 
-» ["ITERATOR", actual parameters.str value] 
# ["\n", type _spec.padding, "ITERATOR", actual parameters.str_value]; 


} 
ил 
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type spec.length - 1; 

type spec.ecursor - type spec.bcursor + 1 <= 80 
-> type spec.bcursor + 1 
# len(type_spec.padding) + 1; 

type spec.str value - type spec.bcursor « 1 «- 80 
zc QS 
# ["\n", type _spec.padding, “?"]; 


. 
3 


паве 1151 
: name list NAME 
( 

name ilst[1].length - name list[2].length « len(NAME.Ztext); 

name llst[2].bcursor - name lIst[1].bcursor; 

name lIst[2].padding » name list[1].paddIng; 

name list[1].ecursor є (name ilst[2].ecursor « len(NAME.Zztext) + 1) <= 80 
-» name list[2].ecursor « len(NAME.Xtext) 4 1 
* len(name lIst[1].padding) « len(NAME.Xtext) « 1; 

name list[1].str value - (name list[2].ecursor « len(NAME.Ztext) « 1) <= 80 
-» [name list[2].str value, NAME.Ztext, " "] 
ж [name list[2].str value, "Nn", name lIst[1].padding, NAME.Xtext, " "]; 


) 
| NAME 
( 
name list.length » len(NAME.Ztext); 
name list.ecursor - (name llst.bcursor « len(NAME.Ztext) + 1) <= 80 
-> name l|I|st.bcursor « len(NAME.Xtext) + 1 
+ len(name lIst.padding) « len(NAME.Xtext) « 1; 
name lIst.str value - (name lIst.bcursor « len(NAME.Xtext) « 1) <= 80 
-> [NAME.Xtext, spaces(1)] 
ж Им“, name list.padding, NAME.Xtext, spaces(1)]; 


optional name 
: NAME formal parameters 
{ 

optional name.iength - optional name.ecursor -- formal parameters.bcursor 
-» 0 
ТЕ 

optional name.ecursor - formal parameters.ecursor; 

formal parameters.indent = optional name.indent ; 

formal parameters.bcursor - optlonai name.bcursor « len(NAME.Xtext) < 80 
-> Optional name.bcursor « len(NAME.atext) 
+ len(optional_name.padding) + len(NAME.%text); 

formal! parameters.padding = [optiona! name.padding, spaces(len(NAME.Ztext))]; 

optional! name.str value = optional name.bcursor + len(NAME.Xtext) < 80 
-> [NAME.Xtext, formal parameters.str value] 
# [“\n", optional name.padding, NAME.xtext, formal parameters.str value]; 
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( 
optionai name.length = 0; 
optional name.ecursor = optional name.bcursor; 
optional name.str value з ""; 


) 


parametrized name 
: NAME actual parameters 
( 

parametrized_name.length = len(NAME.%text) + actual parameters. length; 

actual_parameters.bcursor = (parametrized_name.bcursor + len(NAME.%text)) <= 80 
-> Parametr|zed name.bcursor + |еп(МАМЕ. Хех) 
* ljen(parametrized_name.padding) + len(NAME.atext); 

parametrized name.ecursor s actual parameters.ecursor; 

actual parameters.padding - parametr ized name.padding; 

parametrized name.str value - (parametrized name.bcursor *len(NAME.Ztext) ) <= 80 
-» [NAME.Xtext, actuai parameters.str value] 
н ["\n", parametrized name.padding,  NAME.2text, actual parameters.str value]; 


|| 
actual parameters | parameter values are determined at specification time 
ва erg liste 
{ 


actual parameters.iength = 2 + arg list. length; 
arg _list.bcursor = actual parameters.bcursor + 1 < 80 
-> actual parameters.bcursor + 1 
* len(actuai_parameters.padding) + 1; 
arg list.padding = spaces(arg llst.bcursor); 
actual parameters.ecursor = arg Ilst.ecursor + 1; 
actuai parameters.str value - actual parameters.bcursor « 1 « 80 
-> ['C', arg Ilst.str vaiue, ")"] 
# ["\n", actual parameters.padding, "{", arg list.str_vaiue, “}"]; 


| Xprec SEMI | must have a lower precedence than ‘{’ 


actual parameters.length - 0; 
actual parameters.ecursor - actual parameters.bcursor; 
actual _parameters.str_value = “"; 


} 


actual arguments | arguments are evaluated at run-time 
: '(* arg list ")" 
( 
actual arguments.iength - 2 « аго 1151. Іепдїћ; 
arg list.bcursor - actual arguments.bcursor « 1 « 80 
-» actual arguments.bcursor « 1 
* len(actual_arguments.padding) + 1; 


144 


агд 1151.рай4110 - spaces(arg list.bcursor); 
actual arguments.ecursor = arg list.ecursor + 1; 
actual arguments.str value - actual arguments.bcursor « 1 « 80 
-» ['C', arg list.str value, ")"] 
* ["\n", actual arguments.padding, "(", arg list.str value, ")"]; 


) 
| Хргес ЗЕМ! | must have a lower precedence than '(' 
( 
actual arguments.length + 0; 
actual arguments.ecursor - actual arguments .bcursor; 
actual arguments.str value є "7"; 
) 
arg list 
: arg list ',* arg Хргес COMMA 
( 
arg list[1].length « arg list[2].length « 2 « arg. length; 
arg iist[2].bcursor » arg list[1].bcursor; 
arg list[2].padding « arg iist[1].padding; 
arg.beursor = arg ilst[2].ecursor + 2 <= 80 
-> arg list[2].ecursor * 2 
* len(arg IIlst[1].paddIng); 
arg.padding « arg list[1].padding; 
arg list[1].ecursor - arg.ecursor; 
arg list[1].str value - arg list[2].ecursor + 2 <= 80 
-> [arg list[2].str value, ", ", arg.str value] 
* [arg list[2].str value, ",", "An^, arg list[1].padding, arg.str value]; 
) 
i arg 
{ 
arg Ilst.length = arg. length; 
arg.bcursor » arg list.bcursor; 
arg.padding = arg ilst.padding; 
arg Ilst.ecursor = arg.ecursor; 
arg list.str value » arg.str value; 
) 


arg 


: express lon 


( 


arg.length = expresslon. length; 
expression.bcursor s arg.bcursor; 
expresslon.padding = arg.padding; 
arg.ecursor = expression.ecursor; 
arg.str value - expresslon.str value; 


) 


! pair 


( 


arg.length = palr.length; 
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palr.bcursor = arg.bcursor; 
palr.padding = arg.padding; 
arg.ecursor = palr.ecursor; 
arg.str_value = palr.str_value; 


ехргез5 [оп_|151 
: expresslon list ',' comment expression Хргес COMMA 
( 
expression lIst[1].length » expression list[2].length « 2 + comment. length 
+ expression. length; 
expresslon.bcursor = comment.length > 0 
-> Іеп(ехргеѕѕ Іоп 115#[1).раддіпд) 
* expresslon 1151[2].есигѕог + 2 + ехргеѕѕ1іоп. Іепдїћ <= 80 
-» expresslon list[2].ecursor + 2 
* len(expresslon lIst[1].padding); 
comment.bcursor «+ expression list[2].ecursor +1; 
expresslon.padding » expression list[1].padding; 
expresslon list[2].bcursor » expression llst([1].bcursor; 
expresslon lIst[2].padding » expression list[1].padding; 
expresslon IIst[1].ecursor » expresslon.ecursor; 
expression list[1].str value - comment.length > 0 
-» [expression lIst[2].str value, ", ", comment.str value, 
expression list[1].padding, expresslon.str value] 
* expression list[2].ecursor « 2 * expresslon.length «- 80 
-» [expresslon list[2].str value, ", ", comment.str value, expresslon.str value] 
+ [expression llst[2].str value, ",", "Nn", comment.str value, 
expression list(1].padding, expression.str value]; 
) 
| expression 
{ 
expresslon list.length -» expression. length; 
expression.bcursor - expression list.bcursor; 
expresslon.padding - expresslon list.padding; 
expression lIst.ecursor - expresslon.ecursor; 
expression list.str value - expression.str value; 


express on 
: quantifler '(* fleld list restriction BIND expression ")" 
( 

expresslon[1].length » quantifler.length « 2 « fleld list. length 
+ restrictlon.length + 4 « expresslon[2]. length; 

quant|fler.padding » expression[1].padding; 

quant|fler.bcursor 2 expresslon[1].bcursor; 

fleld_Ilst.bcursor = quantifler.ecursor + 1; 

fleld_Ilst.padding = spaces(fleld IIst.bcursor); 

restrictlon.bcursor » fleid iist.ecursor * restriction.length <= 80 
-» fleld lIst.ecursor 
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* field list.bcursor; 
restriction.padding - field list.padding; 
expresslon[2].bcursor »- restrictlon.ecursor « 4 « expression[2].length + 1 <= 80 
-» restrictlon.ecursor « 4 
* len(restriction.padding) + 3; 
expresslon[2].padding = restrictlon.ecursor + 4 + expression[2]. length + 1 <= 80 
-» field IIst.padding 
я [restriction.padding,spaces(3)]; 
expresslon[1].ecursor = expression[2].ecursor + 1; 
expresslon[1].str value - (fleld list.ecursor « restriction.length «- 80) 
&& (restriction.ecursor « 4 « 1 « expression[2].length «- 80) 
&& (restrictlon.length == 0) 
-» [quantifler.str value, "(", fleld llst.str value, restriction.str value, 
" :: ", expresslon[2].str value, ")"] 
# (fleld lIst.ecursor « restriction.length «- 80) 
&& (restriction.ecursor « 4 « 1 « expresslon[2].length «- 80) 
&& (restriction.length > 0) 
-» [quantifler.str value, "(", fleld list.str value, " ", restriction.str value, 
", expresslon[2].str value, ")"] 
* (fleld lIst.ecursor 4 restrictlon.liength > 80) 
&& (restrictlon.ecursor « 4 « 1 « expresslon[2].length <= 80) 
&& (restrictlon.length == 0) 
-> [quantifler.str_value, "(", fleld_list.str_value, “\n", fleld_llst.padding, 
restriction.str value, ":: ", expresslon[2].str value, ")"] 
* (fleid list.ecursor « restriction.length » 80) 
&& (restriction.ecursor « 4 « 1 « expression[2].length <= 80) 
&& (restriction. length » 0) 
-» [quantifler.str value, "(", fleld list.str value, "Nn", field list.padding, 
restrictlon.str value, " :: ", expression[2].str value, ")"] 
* (fleld list.ecursor « restriction.length » 80) 
&& (restriction.ecursor « 4 « 1 « expresslon[2]. length » 80) 
&& (restriction. length » 0) 
-» [quantifier.str value, "(", fleld list.str value, "n", fleid list.padding, 
" restriction.str value, "Nn",restrictlon.padding,":: ", 
expression[2].str value, ")"] 
* (fleld list.ecursor « restrictlon.length » 80) 
&& (restrictlon.ecursor + 4 + 1 + expresslon[2]. length > 80) 
&& (restrictlon.length == 0) 
-» [quantifler.str value, "(", fleld list.str value, "Nn", 
restriction.padding,":: ", expresslon[2].str value, ")"] 
# restrictlon.length == 0 
-» [quantifler.str value, "(", fleld_llst.str_value, restrictlon.str_value, 
"An^, restrictlon.padding, ":: ", expresslon[2].str value, ")'] 
* [quantlfler.str value, "(", fleld list.str value, " ", restriction.str value, 
"An^, restrictlon.padding, ":: ", expresslon[2].str value, ")"]; 
) 
| рагаввїг 1204 name actual arguments 
( 
expression.length - parametrized name.length + actual arguments. length; 
parametrized name.bcursor s expresslon.bcursor; 
parametrized _name.padding = expresslon.padding; 
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) 


actual arguments.bcursor - parametrized name.ecursor; 

actual arguments.padding = ехргеѕѕ Іоп.радаіпо; 

express|on.ecursor - actual arguments .ecursor; 

expresslon.str value = [parametrized _name.str_value, actual arguments.str value]; 


| parametrized name ‘@’ parametrized name actual arguments 


{ 


} 


expression.length = parametrized _name[1].length + 1 + parametrized _name[2]. length 
+ actual arguments. length; 
parametrized name[1].bcursor - expression.bcursor; 
parametrized name[1].padding = expresslon.padding; 
parametrized _name[2].bcursor = parametrized name[1].ecursor + 1 <= 80 
-> parametrized name[1].ecursor + 1 
+ len(parametrized_name[1].padding) + 1; 
parametrized name[2].padding = expresslon.padding; 
actual_arguments.bcursor = parametrized name[2].ecursor ; 
actual arguments.padding = expresslon.padding; 
expresslon.ecursor = actual _arguments.ecursor, 
expresslon.str_value = parametrized name[1].ecursor + 1 <= 80 
-> [parametrized_name[1].str_value, “e", parametrized name[2].str_value, 
actual arguments.str value] 
* [parametrized name[1].str value,"Nn", parametrized name[1].padding, "e" 
parametrized name[2].str value, actual arguments.str value]; 


, 


| NOT expression Xprec NOT 


( 


) 


expresslon[1].length » 1 « expresslon[2]. length; 

expresslon[2].bcursor = expresslon[1].bcursor « 1 + expresslon[2].length <= 80 
-» expresslon[1].bcursor « 1 
% len(expresslon[1].padding) +1; 

expresslon[2].padding = [expresslon[1].padding, " “]; 

expresslon[1].ecursor = expresslon[2].ecursor; 

expresslon[1].str value - expresslon[1].bcursor « 1 « expression[2].length «- 80 
-» ["^", expresslon[2].str value] 
ж Им”, expresslon[1].padding, "^", expresslon[2].str value]; 


! expression AND expression Xprec AND 


{ 


expression[1].length = expresslon[2].length + 3 + expresslon[3]. length; 

expresslon[2].bcursor = expression[1].bcursor; 

expresslon[2].padding = expresslon[1].padding; 

expression[3].bcursor = expression[2].ecursor + 3 + expresslon[3].length <= 80 
-» expresslon[2].ecursor + 3 
% len(expression[1].padding) + 2; 

expression[3].padding = expresslon[1].padding; 

expression[1].ecursor = expresslon[3].ecursor; 

expresslon[1].str value » expresslon[2].ecursor « 3 « expression[3].length <- 80 
-» [expresslon[2].str value, " & ", expresslon[3].str value] 
* [expresslon[2].str value, "An*, expresslon[1].paddIng, "& ", 

expression[3].str value]; 
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! expression OR expression Хргес ОК 


( 


) 


expression[1].iength - expresslon[2].length « 3 « expresslon[3]. length; 

expression[2].bcursor s expression[1].bcursor ; 

expresslon[2].padding = expresslon[1].padding; 

expression[3].bcursor - expresslon(2].ecursor « 3 « expression[3].length «- 80 
-» expresslon[2].ecursor 4 3 
% jen(expresslon[1].padding) + 2; 

express ion{3].padding = expresslon[1].padding; 

expresslon[1].ecursor = expresslon[3].ecursor; 

expresslon[1].str value - expresslon[2].ecursor « 3 « expresslon[3]. length «- 80 
-» [expresslon[2].str value, " 1 ", expresslon[3].str value] 
• [expresslon[2].str value, "n^, expresslon[1].padding, "i ", 

expresslon[3].str vaiue]; 


| expression IMPLIES expression Хргес IMPLIES 


( 


) 


expresslon[1].length = expression[2].length « 4 « expresslon[3]. length; 

expression[2].bcursor = expression[1].bcursor ; 

expresslon[2].padding = expresslon[{1].padding; 

expression[3].bcursor = expresslion[2].ecursor + 4 + expresslon[3].length <= 80 
-» expresslon[2].ecursor + 4 
a len(expression[1].padding) + 3; 

ехрге55 |оп[3] „рада |пд = expresslon[1].padding; 

expression[1].ecursor » expresslon[3].ecursor; 

expression[1].str value - expresslon[2].ecursor « 4 « expression[3].length «- 80 
-» [expresslon[2].str value, " -» ", expresslon[3].str value] 
* [expresslon[2].str value, "An*, expresslon[1].paddIng, "-» 7", 

expression[3].str value]; 


| expression iFF expression Xprec |РЕ 


( 


) 


expresslon[1].length = expresslon[2).length + 5 4 expresslon[3]. length; 

expression[2].bcursor » expresslon[1].bcursor; 

expression[2] .padding = expresslon{1].padding; 

expression[3].bcursor = expression(2].ecursor + 5 + expresslon[3]. length <= 80 
-> expresslon[2].ecursor + 5 
# len(expresslon[1].padding) + 4; 

expresslon[3].padding - spaces(expresslon[3].bcursor); 

expresslon[1].ecursor - expresslon[3].ecursor; 

expresslon[1].str value « expression[2].ecursor « 5 « expresslon[3].length <= 80 
-» [expresslon[2].str value, " «e» ", expression[3].str value] 
« [expresslon[2].str уаїце, "Мп", expresslion[1].padding, "<=> ", 

expresslon[3].str value]; 


! expression '«' expression Хргес LE 


( 


expression[1].length » expression[2].length « 3 « expresslon[3]. length; 
expresslon[2].bcursor = expression[1).bcursor; 

expresslon[2].paddIng » expression[1].padding; 

expression[3].bcursor » expresslon[2].ecursor + 3 + expression[3].length <= 80 
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) 


-> expresslon[2].ecursor + 3 
# len(expression[1].padding) + 2; 
expresslon[3].padding = expression[1].padding; 
expresslon[1].ecursor = expresslon[3].ecursor; 
expresslon[1].str value - expresslon[2].ecursor « 3 + expression[3]. length <= 80 


-» [expresslon[2].str value, " « ", expresslon[3].str value] 


+ [expresslon[2].str value, "n", expresslon[1].padding, "« ", 
expresslon[3].str value]; 


' expression ‘>’ expression prec LE 


{ 


} 


expresslon[1]. length = expresslon[2].length + 3 + expresslon[3]. length; 

expresslon[2].bcursor - expresslon[1].bcursor; 

expresslon[2].padding = expresslon[1].padding; 

expresslon[3].bcursor = expresslon[2].ecursor + 3 + expresslon[3]. length <= 80 
-> expresslon[2].ecursor + 3 
# len(expresslon[1].padding) + 2; 

expresslon[3].padding = expresslon[1].padding; 

expresslon[1].ecursor s expresslon[3].ecursor ; 

expresslon[1].str value - expresslon[2].ecursor « 3 « expression[3].length «- 80 
-» [expresslon[2].str value, " » ", expresslon[3].str value] 
* [expresslon[2].str value, "An", expresslon[1].padding, "» ", 

expresslon[3].str value]; 


' expresslon ‘=’ expression Xprec LE 


( 


expresslon[1].length = expresslon[2].length + 3 « expression[3]. length; 

expresslon[2].bcursor = expresslon[1].bcursor; 

expresslon[2].padding = expression[1].padding; 

expression[3].bcursor = expression[2].ecursor + 3 + expression[3]. length <= 80 
-> expresslon[2].ecursor + 3 
# len(expresslon[1].padding) 4 2; 

expresslon[3].padding = expresslon[1] .padding; 

expresslon[1].ecursor = expresslon[3].ecursor; 

expresslon[1].str_value = expresslon[2].ecursor + 3 + expresslon[3].length <= 80 


-» [expression[2].str value, " - ", expression[3].str value] 
* [expression[2].str value, "An^, expresslon[1].paddIng, "- ", 
expresslon[3].str value]; 
) 
| expression LE expression Xprec LE 
{ 


expresslon[1]. length = expresslon[2].length + 4 + expresslon[3]. length; 

expression[2].bcursor = expresslon[1].bcursor ; 

expression[2].padding = expresslon[1].padding; 

expresslon[3].bcursor = expresslon[2].ecursor + 4 + expression[3]. length <= 80 
-» expresslon[2].ecursor 4 4 
* len(expresslon[1].padding) + 3; 

expresslon[3].padding = expresslon[1].padding; 

expresslon[1].ecursor = expresslon[3].ecursor; 

expresslon[1].str_value = expresslon[2].ecursor + 4 + expresslon[3]. length <= 80 
-> [expresslon[2].str_value, “ <= ", expresslon[3].str_value] 
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) 


* [expresslon[2].str value, "^n", expresslon[1].padding, "<= ", 
expression[3].str value]; 


expression GE expression Xprec LE 


( 


) 


expression[1].length - expresslon[2].length « 4 « expression[3]. length; 

expresslon[2].bcursor » expression[1].bcursor ; 

expression[2].padding - expression[1].padding; 

expression[3].bcursor - expression[2].ecursor « 4 « expresslon[3]. length «- 80 
-» expression[2].ecursor 4 4 
* len(expression[1].padding) + 3; 

expression[3].padding = expresslon[1].padding; 

expresslon[1].ecursor = expresslon[3].ecursor; 

expression[1].str_value = expression[2].ecursor + 4 + expresslon[3].iength <= 80 
-> [expression[2].str value, " >= ", expression[3].str value] 
«* [expresslon[2].str value, "Nn", expression[1].padding, “>= “, 

expression[3].str value]; 


expression NE expression Хргес LE 


( 


) 


expression[1].length - expression[2].iength « 4 4 expression[3]. length; 

expression[2].bcursor s expression[1].bcursor; 

expression[2].padding = expression[1].paddIng; 

expresslon[3].bcursor = expression[2].ecursor + 4 + expression[3].length <= 80 
-> expresslon[2].ecursor + 4 
* len(expression[1].padding) « 3; 

expresslon[3].padding = expresslon[1].padding; 

expression[1].ecursor = expresslon[3].ecursor; 

expression[1].str value = expression[2].ecursor + 4 + expression[3]. length <= 80 
-» [expresslon[2].str value, " ^» ", expression[3].str value] 
* [expression[2].str value, "An", expression[1].padding, "^- 7", 

expresslon[3].str value]; 


expression NLT expression Xprec LE 


| 


) 


expresslon[1].iength » expression[2].length + 4 « expresslon(3]. length; 

expression[2].bcursor - expression[1].bcursor; 

expression[2].padding » expresslon[1].padd!ng; 

expression[3].bcursor = expression[2].ecursor + 4 + expresslon[3].iength <= 80 
-> expression[2].ecursor + 4 
* len(expression(1].padding) + 3; 

expression[3].padding = expresslon[{1].padding; 

ехргеѕѕіоп[1].есигѕог = expresslon[3].ecursor; 

expression[1].str vaiue = expression[2].ecursor + 4 + expression[3]. length <= 80 
-» [expression[2].str value, " "« ", expression[3].str value] 
+ [expression[2].str value, "n", expression[1].padding, "^« ", 

expression[3].str value]; 


expression NGT expression Xprec LE 


( 


expression[1].iength = expression[2]. length + 4 + expresslon[3]. length; 
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) 


expression{2].bcursor = expression[1].bcursor; 

expression[2].padding = expression[1].padding; 

expression[3].bcursor -» expression[2].ecursor + 4 + expression[3].length <= 80 
-» expression[2].ecursor + 4 
*  ien(expression[1].padding) * 3; 

expression[3].padding » expression[1].padding; 

expression[1].ecursor » expression[3].ecursor; 

expression[1].str value - expresslon[2].ecursor « 4 «* expression[3].length «- 80 
-» [expresslon[2].str vaiue, " ^» ", expression[3].str vaiue] 
* [expresslon[2].str vaiue, "Nn", expression[1].padding, "^» ", 

expresslon[3].str vaiue]; 


expression NLE expression Хргес |Е 


( 


) 


expression[1].length s» expression[2].length + 5 « expression[3]. length; 

expresslon{2].bcursor = ехргеѕѕ Іоп[ 1] .бсигѕог; 

expresslon[2].padding = expresslon[1].padding; 

expression[3].bcursor s expression[2].ecursor « 5 + expresslon[3].iength <= 80 
-» expression[2].ecursor + 5 
% ien(expression[1].padding) + 4; 

expression[3].padding » expression[1].padding; 

expression[1].ecursor = expression[3].ecursor; 

expresslon[{1].str_value = expression[2].ecursor + 5 + expression[3].iength <= 80 
-> [expresslon[2].str_value, " “<= ", expression[3].str_vaiue] 
* [expression[2].str value, "n", expresslon[1].padding, "^«- ", 

expresslon[3].str value]; 


expression NGE expression Xprec LE 


( 


) 


expresslon[1].length -» expression[2].length * 5 « expression[3]. length; 

expresslon{2].bcursor = expresslon[1].bcursor; 

expression[2].padding » expression[1].padding; 

expression[3].bcursor = expression[2].ecursor « 5 « expression[3].iength «- 80 
-» expression[2].ecursor + 5 
#  len(expression[1].padding) * 4; 

expresslon[3].padding = expression[1].padding; 

expression{1].ecursor = expresslon[3].ecursor; 

expresslon{1].str_value = expresslon[2].ecursor + 5 + expression[3]. length <= 80 
-> [expression[2].str_vaiue, “ “>= ", expression[3].str_value] 
* [expresslon[2].str value, "An", expression[1].padding, "^»» ", 

expresslon[3].str value]; 


expression EQV expression Xprec LE 


( 


expression[1].length s expresslon[2]. length + 4 + expression[3]. length; 
expression{2].bcursor = expression[1].bcursor; 
expression[2].padding = expression[?].padding; 
expression[3].bcursor - expresslon[2].ecursor + 4 + expression[3].iength <= 80 
=> expresslon[2].ecursor + 4 
* len(expression[1].padding) * 3; 
expresslon[3].padding » expresslon[1].padding; 
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) 


expresslon[1].ecursor s expresslon[3].ecursor; 
expression[1].str value » expresslon[2].ecursor + 4 + expression[3].length «- 80 
-> [expression[2].str value, " z» ", expression[3].str value] 
* [expression[2].str value, "n", expresslon[1].paddIng, "== " 
expression[3].str value]; 


expression NEQV expression %ргес [Е 


{ 


) 


( 


у 


expression[1].length - expression[2].length « 5 « expresslon[3]. length; 

expresslon[2].bcursor = expresslon[1].bcursor; 

express lon[2].padding = expresslon[1].padding; 

expresslon[3].bcursor = expresslon[2].ecursor + 5 + expresslion[3].length <= 80 
-» expresslon[2].ecursor + 5 
* len(expresslon[1].padding) 4 4; 

expression[3].padding » expression[1].padding; 

expresslion[1].ecursor s expresslon[3].ecursor ; 

expression[1].str value » expresslon[2].ecursor + 5 + expression[3].length <= 80 
-» [expression[2].str value, " ^ss ", expression[3].str value] 
* [expression[2].str vaiue, "An", ехргез5 |оп[1] рада па, "“== ", 

expression[3].str vaiue]; 


* expression %prec UMINUS 


expression[1]. length = 1 + expression[2]. length; 

express lon[2].bcursor = expression[1].bcursor + 1 + expresslon[2].iength <= 80 
-> expression[1].bcursor + 1 
# jlen(expression[1].padding) + 1; 

expression[2].padding = expression[1].padding; 

expression[1].ecursor = expression[2].ecursor; 

expression[1].str_vaiue = expresslon[1].bcursor + 1 + expresslon[2].length <= 80 
-> ["-", expression[2].str_value] 
# [°\n", expresslon[1].padding, “-", expresslon[2].str_value]; 


expression ‘+’ expression xprec PLUS 


{ 


) 


expression[1].length s expression[2].length + 3 « expression[3]. length; 

expresslon[2].bcursor » expression[1].bcursor; 

expression[2].padding » expression[1].padding; 

expression[3].bcursor = expression[2].ecursor + 3 + expresslon[3].length <= 80 
-> expresslon[2].ecursor + 3 
# len(expresslon[1].padding) + 2; 

expresslon[3].padding = expresslon[1].padding; 

expression[1].ecursor = expresslon[3].ecursor; 

expression[1].str_value = expression[2].ecursor + 3 + expresslon[3]}.length <= 80 
-» [expression[2].str_value, " + ", expresslon[3].str value] 
+ [expression[2].str value, "Nn*, expression[1].paddIng, "+", 

expresslon[3].str value]; 


expression '-' expression Xprec MINUS 


( 


expresslon[1].length - expresslion[2].length « 3 « expresslon[3]. length; 


153 


) 


expression[2].bcursor -» expression[1].bcursor; 

expresslon[2].padding = expresslon[1] .padding; 

expresslon[3].bcursor = expression[2].ecursor + 3 + expresslon[3].length <= 80 
=> expresslon[2].ecursor + 3 
# len(expression[1].padding) + 2; 

express lon[3].padding = express lon[1].padding; 

expression[1].ecursor = expresslon[3].ecursor; 

expresslon[1].str value » expresslon[2].ecursor « 3 « expression[3].length «» 80 
-» [expression[2].str value, " - ", expresslon[3].str value] 
* [expresslon[2].str value, "in", expresslon[1].paddIng, "- >", 

expresslon[3].str value]; 


expresslon '*' expression Xprec MUL 


( 


) 


expresslon[1].length = expresslon[2]. length « 3 « expresslon[3]. length; 

expresslon[2].bcursor = expresslon[1].bcursor; 

expresslon[2].padding = expresslon[1].padding; 

expresslon[3].bcursor = expresslon[2].ecursor + 3 + expresslon[3].length <= 80 
-> expresslon[2].ecursor + 3 
# len(expression[1].padding) + 2; 

expresslon[3].padding = expresslon[1].padding; 

expression[1].ecursor = expresslon[3].ecursor; 

expresslon[1].str value - expresslon[2].ecursor + 3 + expresslon[3]. length <= 80 
-» [expresslon[2].str value, " * ", expresslon[3].str value] 
» [expression[2].str value, "An", expresslon[1].padding, "* 7", 

expression[3].str value]; 


expresslon '/' expression ӛргес DIV 


( 


) 


expresslon[1].length = expression[2]. length + 3 + expresslon[3]. length; 

expresslon[2].bcursor = expresslon[1].bcursor ; 

expresslon[2].padding = ехргез5 |оп[1] „рада !пд; 

expression[3].bcursor - expresslon[2].ecursor « 3 « expresslon[3].length <= 80 
-» expresslon[2].ecursor + 3 
* len(expresslon[1].padding) + 2; 

expresslon[3].padding = expresslon[1].padding; 

expresslon[1].ecursor = expresslon[3].ecursor; 

expresslon[1].str_value = expresslon[2].ecursor + 3 + expression[3]. length <= 80 
-» [expression[2].str value, " / ", expresslon[3].str value] 
* [expression[2].str value, "An^, expresslon[1].padding, "/ ^, 

expresslon[3].str value]; 


expression MOD expression Xprec MOD 


( 


expresslon[1].length = expresslon[2].length « 5 + expresslon[3]. length; 
expresslon[2].bcursor = expresslon[{1].bcursor; 
expresslon[2].padding = expresslon[1].padding; 
expresslon[3].bcursor = expresslon[2].ecursor + 5 + expresslon[3].length <= 80 
-> expresslon[2].ecursor + 5 
# len(expresslon[1].padding) + 4; 
express lon[3].padding = expresslon[1].padding; 
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) 


expression[1].ecursor s expression[3].ecursor ; 
expression[1].str value - expression[2].ecursor « 5 « expression[3].length <= 80 
-» [expression[2].str value, " MOD ", expression[3].str value] 
* [expression[2].str value, "Nn", expression[1].padding, "MOD ", 
expresslon[3].str value]; 


! expression EXP expression ӛргес EXP 


( 


) 


expression[1].length = expresslion[2].length + 4 « expression[3]. length; 

expresslon[2].bcursor = expression[1].bcursor; 

expresslon[2].padding » expresslon[ 1].paddIng; 

expresslon[3].bcursor » expression[2].ecursor * 4 * expresslon[3].length <= 80 
-> expression(2].ecursor 4 4 
% len(expresslon[1].paddIng) % 3; 

expresslon[3].padding » expresslon[1].padding; 

expression[1].ecursor s expresslon[3].ecursor; 

expresslon[1].str value » expresslon[2].ecursor « 4 « expresslon[3]. length «- 80 
-» [expression[2].str value, " ** ", expresslon[3].str value] 
+ [expresslon[2].str value, "An", expresslon[1].padding, "** ", 

expresslon[3].str value]; 


! expression U expression Xprec U 


( 


) 


expression[1].length » expression[2].length + 3 « expresslon[3]. length; 

expresslon[2].bcursor - expression[1].bcursor; 

expresslon[2].padding » expresslon[1].padding; 

expresslon[3].bcursor = expression{2].ecursor + 3 « expresslon[3].length «- 80 
-» expression[2].ecursor + 3 
% len(expresslon[1].padding) + 2; 

expresslon[3].padding = expresslon[1].padding; 

expresslon[1].ecursor = expresslion[3].ecursor; 

expression[1].str value » expresslon[2].ecursor « 3 « expression[3].length «- 80 
-» [expression[2].str value, " U ", expresslion[3).str value] 
* [expresslon[2].str value, "^n^, expresslon[1].padding, "U ", 

expresslon[3].str value]; 


| expression APPEND expression %prec APPEND 


( 


expresslon[1].length » expression[2]. length « 4 « expression[3]. length; 

expresslon[2].bcursor » expresslon(1].bcursor; 

expresslon[2].padding » expression[1].padding; 

expresslon[3].bcursor - expresslon[2].ecursor + 4 « expression[3].length <= 80 
=> expresslon[2].ecursor + 4 
* len(expression[1].padding) * 3; 

expresslon[3].paddIng = expresslon[1].padding; 

expresslon[1].ecursor = expresslon[3].ecursor; 

expression[1].str_value = expresslon[2].ecursor + 4 + expresslon[3]. length <= 80 
-> [expression[2].str value, " | ", expresslon[3].str value] 
* [expression[2].str value, "An", expresslon[1).padding, Е 

expression[3].str value]; 
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| expression IN expression ӛргес ІК 
( 

expression[1].length - expression[2].length « 4 4 expression[3].length; 

expression[2].bcursor = expresslon[1].bcursor ; 

expresslon[2].padding » expresslon[1].padding; 

expresslon[3].bcursor = expresslon[2].ecursor + 4 + expression[3].length <= 80 
=> expression[2].ecursor 4 4 
# len(expresslon[1].padding) 4 3; 

expresslon[3].padding = expression[1].padding; 

expresslon[1].ecursor » expresslon[3].ecursor; 

expresslon[1].str value -» expresslon[2].ecursor + 4 « expresslon[3].length <= 80 
-» [expression[2].str value, " IN ", expresslon[3].str value] 
* [expresslon[2].str value, “Ха”, expresslon[1].padding, "IN ", 

expresslon[3].str value]; 


) 
| "з" expression Xprec STAR 
| зх 15 the value of x before a transition 
| x Is the value after the transition 
{ 
expresslon[1].length = 1 + expresslon[2]. length; 
express lon[2].bcursor = expresslon[1].bcursor + 1 + expression[2].length <= 80 
-> expression[1].bcursor + 1 
% len(expression[1].padding) * 1; 
expresslon[2].padding = expresslon[1].padding; 
expression[1].ecursor = expresslon[2].ecursor; 
expresslon[(1].str_value = expression[1].bcursor + 1 + expression[2].length <= 80 
-» ["*", expresslon[2].str value] 
# Им", expresslon[1].padding, "*", expression[2].str value]; 
) 
'$' expresslon Хргес DOT 
| $x represents a collection of Items rather than Just one 
| 51 = (х, 552) means s1 = unlon({x}, 52) 
1 51 = [х, $52] пеапѕ 51 = append([x], 52) 
{ 
expresslon[1].length = 1 + expresslon[2]. length; 
expresslon[2].bcursor - expression[1].bcursor + 1 + expression[2].length <= 80 
-» expresslon[1].bcursor + 1 
# len(expression[1].padding) + 1; 
ехргез5 |опГ2] „рада |пд = ехрге55 |оп[1] „рада | пд; 
expresslon[{1].ecursor = expresslon[2].ecursor; 
expresslon(1].str_value = expresslon[1].bcursor + 1 + expresslon[2]. length <= 80 
-> ["$", expresslon[2].str_value] 
* ["\n", expression[1].padding, "$", expresslon[2].str value]; 


) 
| expression RANGE ехрге$$ [оп Хргес RANGE 

| x In [a .. b] Iff x In (a .. b} Iff àa <= х <= Б 

| [a .. b] Is sorted In Increasing order 

( 
expresslon[1].length s expresslon[2].length « 4 4 expresslon[3]. length; 
expresslon[2].bcursor = expresslon[1].bcursor; 
expression[2].padding = expresslon[1].padding; 


156 


) 


expression[3].bcursor - expression[2].ecursor + 4 + expression[3].iength <= 80 
-» expression[2].ecursor + 4 
* len(expression[1].padding) 4 3; 

expresslon[3].padding s expression[1].padding; 

expresslon[{1].ecursor = expression[3].ecursor ; 

expression[1].str value - expression[2].ecursor + 4 + expresslon[3].iength <= 80 
-» [expresslon[2].str value, " .. ", expresslon[3].str value] 
* [expression[2].str value, "n", expression[1].padding, ".. ", 

expresslon[3].str value]; 


| expression *.° NAME Хргес DOT 


( 


) 


expression[1].length = expression[2].length + 1 + len(NAME.%text); 
expression[2].bcursor = expresslon[{1].bcursor; 
expresslon[2].padding = expression[1].padding; 
expression[1].ecursor = expresslon[2].ecursor + 1 + len(NAME.%text) <= 80 
-» expresslon[2].ecursor + 1 « len(NAME.Ztext) 
* len(expression[1].padding) + len(NAME.%text); 
expression[1].str_value = expresslon{2].ecursor + 1 + len(NAME.%text) <= 80 
-» [expression[2].str value, ".", NAME.Xtext] 
* [expression[2].str value, ".", "^n^, expresslon[1].padding, NAME.Ztext]; 


г expression '[' expression ")" Xprec DOT 


( 


~ 4. 


( 


) 


( 


expression[1].length » expression[2].length + 2 « expression[3]. iength; 

expression[2].bcursor s expression[ 1].bcursor ; 

expression[2].padding = expression[1].padding; 

expression[3].bcursor - expression[2].ecursor + 2 + expresslon[3].length <= 80 
-» expression[2].ecursor + 1 
* len(expression[1].padding) + 1; 

express lon[3].padding = expresslon[1].padding; 

expression[1].ecursor = expression[3].ecursor 4 1; 

expression[1].str value = expression[2].ecursor « 2 «* expresslon[3].length «- 80 
-» [expression[2].str value, "[", expression[3].str value, "]") 
* [expression[2].str value, "An", expression[1].padding, "[", 

expression[3].str value, "]"]; 


(^ expresslon ')' 


expression[1].length = 2 « expression[2]. length; 

expression[2].bcursor = expression[1].bcursor + 2 + expression[2].length <= 80 
-» expression[1].bcursor + 1 
# len(expression[1].padding) + 1; 

expression[2].padding » expression[1].padding; 

expression[1].ecursor « expression[2].ecursor 4 1; 

expresslon[1].str value = expression[1].bcursor + 2 + expression[2]. length «- 80 
-> ["(", expression[2].str value, ")"] 
# [“\п”, expresslon[1].padding, "(^, expression[2].str value, ")"]; 


(* expression units ')* | timing expression 
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expresslon[1].length - 2 « expression[2].length « units.length; 
expression[2].bcursor = expression[1].bcursor + 2 + expression[2]. length 
+ units.length <= 80 
-» expression[1].bcursor + 1 
# len(expression[1].padding) + 1; 
expresslon[2].padding » expresslon[1].padding; 
units.bcursor » expression[2].ecursor; 
unlts.padding = expression[1].padding; 
expression[1].ecursor = units.ecursor + 1; 
expression[1].str value - expresslon[1].bcursor « 2 « expression[2]. length 
+ units.length <= 80 
-» ["(", expression[2].str value, units.str value, ")"] 
+ ["“\n", expression[1].padding, “(", expression[2].str_value, units.str_value, 
1: 
) 
| TIME | The current іосаї time, used in temporal events 
( 
expression.length = 5; 
expression.ecursor = expression.bcursor + 5 <= 80 
-> expression.bcursor + 5 
% len(expression.padding) + 5; 
expression.str value » expresslon.bcursor % 5 <- 80 
-» "TIME " 
ж [“\п", expression.padding, “TIME "]; 
) 
| DELAY | The time between the triggering event and the response 
{ 
expression.length - 6; 
expression.ecursor = expresslon.bcursor + 6 <= 80 
-> expression.bcursor + § 
# len(expression.padding) + 6; 
expresslon.str value - expresslon.bcursor « 6 «- 80 
-» "DELAY " 
# [“\п", expression.padding, "DELAY "]; 
) 
| PERIOD i The time between successive events of this type 
{ 
expression.length = 7; 
expression.ecursor = expresslon.bcursor % 7 <- 80 
-» expression.bcursor + 7 
# len(expression.padding) + 7; 
expression.str_value = expression.beursor + 7 <= 80 
-» "PERIOD " 
# ["\п", expresslon.padding, "PERIOD "]; 
) 
| || бега! 
( 
expression.iength = literal.length; 
literal.bcursor = expression.bcursor; 
literal.padding = expression.padding; 
expression.ecursor = iiteral.ecursor; 
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) 


expresslon.str value - IIteral.str value; 


| lIteral '€' parametrized name | literal wIth explicit type 


( 


expresslon.length = literal.length « 1 « parametrized name.length; 
l iteral.bcursor = expression.bcursor ; 
IIteral.padding = expresslon.padding; 
parametrized name.bcursor = ||teral.ecursor + 1 + parametrized name. length <= 80 
-> lliteral.ecursor « 1 
*  len(lIlteral.padding); 
parametrized name.padding - spaces(parametrized name.bcursor); 
expresslon.ecursor - parametrized name.ecursor; 
expresslon.str value - ilteral.ecursor + 1 + parametrized name.length <= 80 
-» [literal.str value, "6", parametrized name.str value] 
* [literal.str value, "e^, "мл", IIteral.padding, parametrized name.str value]; 


| 710 | An undefined value to be speclifled later 


( 


) 


expresslon.length = 1; 

expresslon.ecursor - expresslon.bcursor « 1 <= 80 
-» expresslon.bcursor « 1 
* len(expresslon.padding) « 1; 

expresslon.str value - expresslon.bcursor + 1 <= 80 
СТ 


# ["\n", expresslon.paddIng, 7771; 


M | An undef Ined and Illegal value 


expression. length = 1; 

expresslon.ecursor = expresslon.bcursor + 1 <= 80 
-» expresslon.bcursor + 1 
% len(expression.padding) + 1; 

expresslon.str value - expresslon.bcursor « 1 «- 80 
£n 

ж [“\п”, ехргез5!оп.радд! па, "!"); 


| IF expression THEN expression middle cases ELSE expression Fl 


{ 


expresslon[1].length = 15 + expresslon[2]. length + expression[3]. length 
+ middie cases.length + expresslon[4]. length; 
expresslon[2].bcursor = expresslon[1].bcursor + 3; 
expresslon[2].padding » spaces(expresslon[1].bcursor); 
expresslon[3].bcursor = expresslon[1].bcursor + 5; 
expresslon[3].padding = spaces(expresslon[1].bcursor); 
middle cases.bcursor = expresslon[1].bcursor; 
middle cases.padding = spaces(expresslon[1].bcursor ); 
expresslon[4].bcursor » expresslon[1].bcursor + 5; 
expresslon[4].padding = spaces(expresslon[1].bcursor ); 
expresslon[1].ecursor = expresslon[4].ecursor + 4; 
expresslon[1].str_value = expresslon[4].ecursor + 4 <= 80 
-> ("IF ", expression(2].str_value, “\n", expression[3].padding, "THEN ", 
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expression[3].str value, middle cases.str value, "An", 
expression[4].padding, "ELSE ", expresslon[4].str value, " FI "] 

# ["IF ", expresslon[2].str value, "^n^, expresslon[3].padding, "THEN >", 
expresslon[3].str value, middle cases.str value, "An", 
expresslon[4].padding, "ELSE ", expresslon[4].str value, "^n", 
expresslon[4].padding, " FI 71; 


. 
, 


middie cases 
: middie cases ELSE_IF expression THEN expression 
{ 

middle _cases[1]. length = 13 + middie cases[2].length + expresslon[1]. length 
+ expresslon[2]. length; 

middie _cases[2].bcursor = middle_cases[1].bcursor; 

middle cases[2].padding = middle cases[1].padding; 

expresslon[1].bcursor = middle cases[1].bcursor + 8; 

expresslon[1].padding = middle cases[1].padding; 

expresslon[2].bcursor = middle cases[1].bcursor + 5; 

express lon[2].padding = middle cases[1].padding; 

middle cases[1].str_value = [middle cases[2].str_value, "Мп", 
middie cases[1].padding, “ELSE_IF ", expresslon[1].str_value, “Ал”, 
middie cases[1].padding, "THEN ", expression[2].str value]; 


middle cases.length = 0; 
mlddle cases.str value » “"; 


. 
» 


quant |f ler 
: ALL 
| 
quantifler.length = 3; 
quantifler.ecursor = quantifier .bcursor <= 80 
-» quantifler.bcursor + 3 
% len(quantifler.padding) + 3; 
quantifier.str_value = quantifier.bcursor <= 80 
-> "ALL" 
зо ["\n", quantifler.padding, “ALL"]; 
} 
1 SOME 
{ 
quantifier.length = 4; 
quantifler.ecursor = quantifier.bcursor <= 80 
-> quantifier.bcursor 4 4 
*  len(quantifler.padding) 4 4; 
quantifler.str value » quantifler.bcursor «s 80 
-» "SOME" 
ж ["\n", quantifier.padding, “SOME"]; 
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} 
| NUMBER 
{ 
quantifier.iength = 6; 
quantifier.ecursor = quantifier.bcursor <= 80 
-> quantifier.bcursor + 6 
# len(quantifier padding) + 6; 
quantifler.str_value = quantifler.bcursor <= 80 
-» "NUMBER" 
* [“\п", quantifier.padding, "NUMBER"]; 


quantifier.length - 3; 
quantifier.ecursor = quantifler.bcursor <= 80 
-» quantifler.bcursor + 3 
* len(quantifler.padding) + 3; 
quantifier.str value - quantifier.bcursor «- 80 
-» "SUM" 
# {"\n", quantifier.padding, "SUM"]; 
} 
! PRODUCT 
( 
quantifier.iength = 7; 
quantifier.ecursor = quantifier .bcursor <= 80 
-> quantifier .bcursor + 7 
# ien(quantifier.padding) + 7; 
quantifier.str_value = quantifier.bcursor <= 80 
-> “PRODUCT” 
# ["\n", quantifier.padding, "PRODUCT"]; 


quantifier.iength = 3; 
quantifier.ecursor = quantifier.bcursor <= 80 
-> quantifier.bcursor + 3 
+ len(quantifier.padding) + 3; 
quantifier.str_vaiue = quantifier .bcursor <= 80 
ae Tells 
ж ["\n", quantifler.padding, "SET"]; 
) 
| MAXIMUM 
{ 
quantifier.iength = 7; 
quantifier.ecursor = quantifier.bcursor <= 80 
-> quantifier.bcursor + 7 
* len(quantifier.padding) + 7; 
quantifier.str value - quantifler.bcursor «s 80 
-» "MAXIMUM" 
*. [^Wn^, quantif ier.padding, "MAXIMUM" ]; 
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| MINIMUM 
( 
quantifler.length з 7; 
quantifier.ecursor = quantifler.bcursor <= 80 
-» quantifler.bcursor + 7 
ж len(quantifler.padding) + 7; 
quantifler.str value » quantifler.bcursor «- 80 
-» "MINIMUM" 
ж ["\n", quantlfler.padding, "MINIMUM"]; 
} 
i UNION 
{ 
quantifler.length s» 5; 
quantlifler.ecursor - quantifler.bcursor <= 80 
-> quantifler.bcursor + 5 
# len(quantlfler.padding) + 5; 
quantifier.str value - quantlfler.bcursor «- 80 
-» "UNION" 
# ["\n", quantifler.padding, "UNION"]; 
) 
| INTERSECTION 
( 
quantifler.length = 12; 
quantifler.ecursor = quantifler.bcursor <= 80 
-> quantifler.bcursor + 12 
# len(quantifler.padding) + 12; 
quantifier.str_value = quantifler.bcursor <= 80 
-> "INTERSECTION" 
# (["\n", quantlfler.padding, "INTERSECTION"]; 


restriction 
: SUCH expression 
{ 
restriction. length = 10 + expression. length; 
expresslon.bcursor = restrictlon.bcursor + 10 <= 80 
-> restrictlon.beursor + 10 
# len(restrictlon.padding) + 10; 
expresslon.padding = spaces(expresslon.bcursor ); 
restrictlon.ecursor = expression.ecursor; 
restrictlon.str_value = restriction.bcursor + 10 <= 80 
-> ["SUCH THAT ", expresslon.str_value] 
# ["\n", restrictlon.padding, “SUCH THAT ", expresslon.str_ value]; 


restrictlon.length = 0; 
restrictlon.ecursor = restrictlon.bcursor; 
restrictlon.str_value = ""; 
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literal 
: INTEGER LITERAL 


( 
literal.length = len( INTEGER LITERAL.Ztext); 
lIteral.str value » literal.bcursor * len( INTEGER LITERAL.Xtext) «- 80 
-> INTEGER LITERAL.Xtext 
ж ["\n", Ilteral.padding, INTEGER LITERAL .%text); 
literal.ecursor = ||teral.bcursor + len( INTEGER LITERAL.%text) <= 80 
-» ||teral.boursor + len( INTEGER LITERAL .%text) 
ж len( Ilteral.padding) + len( INTEGER LITERAL .%text); 
) 
| REAL LITERAL 
( 
literal. length = len(REAL LITERAL .%text); 
lIteral.str value » literal.bcursor « len(REAL LITERAL.Ztext) «» 80 
-» REAL LITERAL .Ztext 
* ["\п", IIteral.padding, REAL LITERAL.Ztext]; 
lIteral.ecursor s literal.bcursor « len(REAL LITERAL.Ztext) «- 80 
-» |iteral.bcursor « len(REAL LITERAL.Ztext) 
ж len(IIteral.padding) + len(REAL_LITERAL.%text); 
] 
| CHAR LITERAL 
( 
literal. length = len(CHAR LITERAL .Ztext); 
lIteral.str value » lIteral.bcursor * len(CHAR LITERAL.Ztext) «- 80 
-» CHAR LITERAL .Ztext 
* ["“\п", Ilteral.padding, CHAR LITERAL .2text]; 
||teral.ecursor = ||teral.bcursor + len(CHAR LITERAL.%text) <= 80 
-> I|lteral.bcursor + len(CHAR LITERAL. %text) 
* , len(IIteral.padding) * len(CHAR LITERAL.Ztext); 
) 
| STRING LITERAL 
{ 
literal. length = len(STRING LITERAL .%text); 
lIteral.str value - literal.bcursor « len(STRING LITERAL.Xtext) «- 80 
-» STRING LITERAL.Ztext 
* [”\п", IIteral.paddIng, STRING LITERAL.Ztext]; 
IIteral.ecursor » literal.bcursor « len(STRING LITERAL.Xtext) «- 80 
-> |lteral.bcursor * len(STRING LITERAL.Ztext) 
«* len(literal.padding) * len(STRING LITERAL.ztext); 
) 
| 'e' NAME | enumeration type literal 
( 


IIteral.length « 1 « len(NAME.%text); 

| {ега|.есиг$ог = ||%ега|.Бсигзог + 1 + len(NAME.%text) <= 80 
-> I|teral.bcursor + 1 + len(NAME.%text) 
* len(literal.padding) * 1 * len(NAME.Xtext); 

IIteral.str value « Ilteral.bcursor + 1 +len(NAME.%text) <= 80 
-> ["#", NAME. %text] 
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ж ["\n", IIteral.padding, "я", NAME.Ztext]; 
) 
| '[' expresslons ']' | sequence literal 
( 
literal.length - 2 « expressions. length; 
expressions.bcursor + | Тега | .Всшгвог + 1 < 80 
-> |Iteral.bcursor + 1 
# len(literal.padding) + 1; 
expresslons.padding = spaces(IIteral.bcursor + 1); 
|lteral.ecursor = expresslons.ecursor + 1; 
IIteral.str value » literal.bcursor « 1 « 80 
-» ["[", expresslons.str value, "]"] 
я Им“, lIteral.padding, "[", expresslons.str value, "]"]; 
) 
| '(' expresslons ')' | set Ilteral 
{ 
IIteral.length = 2 + expressions. length; 
expressions.bcursor = IIteral.bcursor +1 « 80 
-» |Iteral.bcursor + 1 
# len(literal padding) + 1; 
expresslons.padding - spaces(literal.bcursor « 1); 
||teral.ecursor = expresslons.ecursor + 1; 
lIteral.str value » literal.bcursor + 1 < 80 
-» ['C', expresslons.str value, ")'] 
“Га”, IIteral.padding, "(", expresslons.str value, "j"]; 
) 
|! '(* expresslon ';' comment expresslons ')' | map literal 
{ 
literal.length - 3 + expresslon.length + comment.length + expressions. length; 
comment .bcursor = expression.ecursor + 1; 
expresslon.bcursor = [Iteral.bcursor + 1 < 80 
-> |lteral.bcursor + 1 
8. 16п(111ї8га! .радаїпа) + 1; 
expresslon.padding » spaces(expresslon.bcursor); 
expresslons.bcursor - comment.length » 0 
-> len(expression.padding) 
* expresslon.ecursor « 2 < 80 
-» expresslon.ecursor « 1 
%  len(expresslion.paddiIng) ; 
expresslons.padding = expresslon.padding; 
literal.ecursor = expresslons.ecursor + 1; 
literal.str value « (comment.length > 0) && (literal.bcursor « 1 < 80) 
-> ["{", expression.str value, ";", comment.str value, expression.padding, 
expresslons.str value, 7)7) 
* (comment.length » 0) && (Ilteral.bcursor + 1 >= 80) 
-> Га”, IIteral.padding, "(", expresslon.str value, ";", comment.str value, 
expresslon.padding, expresslons.str value, ")"] 
% (comment.length -- 0) && (Ilteral.bcursor + 1 < 80) 
&& (expresslon.ecursor + 3 <= 80) 
-» ["C', expresslon.str value, "; ", comment.str value, expresslons.str value, 
"lj 
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* (comment.length == 0) && (literai.bcursor + 1 >= 80) 
&& (expression.ecursor + 3 <= 80) 
-> ["\n", literal.padding, "(", expression.str value, "; ", comment.str value, 
expresslons.str value, "j"] 
* (comment.length -- 0) && (IlIteral.bcursor + 1 < 80) 
&& (expression.ecursor + 3 <= 80) 
-> [7(7, expresslon.str value, "; ", "An", expression.paddiIng, 
comment.str value, expressions.str value, ")"] 
* ["\n", Ilteral.padding, "{", expression.str_ value, "; “, "Nn", 
expression.padding, comment.str value, expresslons.str value, ")"); 
) 
| CU. pair 1151 777 | tuple IIteral 
{ 
literal. length = 2 + palr list.length; 
ра! г list.bcursor = literal.bcursor + 1 < 80 
-> |itera!l.bcursor + 1 
# len(literal.padding) + 1; 
palr_Ilst.padding = spaces(!!teral.bcursor + 1); 
|iteral.ecursor = palr_Ilst.ecursor + 1; 
literal.str value » Ilteral.bcursor + 1 < 80 
-> ["[*, ра!г_115ї1.5їг_уа!ице, 27711 
#  ("м", ПКега!.рада ла, "[", ра!г_11$1.5%г_уа!ше, "]"]; 
) 
{рагу | one of literal 
( 
IIteral.length = 2 + pair.length; 
palr.bcursor » literal.bcursor « 1 « 80 
-> literal.bcursor + 1 
ж len(iiteral.padding) + 1; 
pair.padding = spaces(|Iteral.bcursor + 1); 
| Жега | .есигвог = palr.ecursor + 1; 
lIteral.str value - literal.bcursor * ] « 80 
-> ГС, palr.str value, ")"] 
# ["\n", literal.padding, "(^, palr.str value, ")"]; 
) 


| relation literals are sets of tuples 


express lons 
: expression list 
( 

expressions.length = express!on list.length; 
expresslon list.bcursor »« express!ons.bcursor; 
expresslon list.padding = ехргез5 |оп5 „рада |пд; 
expresslons.ecursor s expression llst.ecursor; 
expresslons.str value - expresslon list.str value; 


) 


( 
expresslons.length - 0; 
expresslons.ecursor = expresslons.bcursor ; 
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expressions.str value з ""; 
) 


раїг 1151 
: pair_iist DAD 
( 
ра|г_115%[1].1епдїһ = ра1г_115%[2].1епдїһ + 2 « palr.iength; 
pair iist[2].bcursor -» pair list[1].bcursor; 
pair iist[1].ecursor - palr.ecursor; 
pair iist[2].padding » palr list[1].padding; 
pair.bcursor » pair ilst[2].ecursor * 2 «- 80 
-» palr ilst[2].ecursor + 2 
# lien(pair_list{1].padding); 
pair_iist{1].str_vaiue = palr_iist{2].ecursor + 2 <= 80 
-> [pair_llst{2].str_value, “, “, palr.str_value] 
* [palr list[2].str vaiue, ", ", "Nn", pair list[1].padding, pair.str value]; 
palr.padding » pair list[1].padding; 
) 
| NAME pair 
{ 
pair_Iist. length = len(NAME .%text) + palr. length; 
pair.beursor = pair_list.bcursor + len(NAME.%text) <= 80 
-> palr_ilst.bcursor + len(NAME.%text) 
# len(pair_iist.padding) + len(NAME.%text); 
pair.padding = pair_list.padding; 
pair iist.ecursor = pair.ecursor; 
pair ilst.str value - palr list.bcursor + len(NAME.’text) <= 80 
-» [NAME.£text, pair.str value] 
# ["\n", palr list.padding, NAME.Ztext, palr.str value]; 


р 
| раїг 

{ 
pair iist.liength » pair.iength; 
pair.bcursor - pair ilst.bcursor; 
palr.padding - pair iist.padding; 
pair iist.ecursor » pair.ecursor; 
pair IIst.str vaiue - pair.str value; 


pair 
: NAME BIND expression 
( 

palr.iength = ien(NAME.Xtext) 4 4 «4 expression. iength; 

expression.bcursor s pair.bcursor + len(NAME.%text) + 4 <= 80 
-> pair.beursor + len(NAME .%text) + 4 
% len(pair.padding) + len(NAME .%text) + 4; 

palr.ecursor = expression.ecursor; 

expression.padding - pair.padding; 

pair.str value - pair.bcursor + len(NAME.Ztext) 4 4 <= 80 
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=> [МАМЕ Жехе, " :: ", expression.str vaiue] 


ж Им”, pair.padding, NAME.%text, " 


) 
units 
: NANOSEC 
( 
units.length = 8; 
units.ecursor = units.bcursor + 8 < 80 
-» unlts.bcursor + 8 
# len(units.padding) + 8; 
units.str_value = units.bcursor + 8 < 80 
-» "NANOSEC" 
ж [“\п”, units.padding, "NANOSEC"]; 
) 
! MICROSEC 
( 
unlts.iength = 8; 
units.ecursor = units.bcursor « 8 « 80 
-» units.bcursor + 8 
# Jen(units.padding) + 8; 
units.str_value = units.bcursor + 8 < 80 
=> "MICROSEC" 
# Гм”, units.padding, "MICROSEC"]; 
} 
| MILLISEC 
( 
units.length = 8; 
units.ecursor - units.bcursor + 8 < 80 
-> units.bcursor + 8 
# len(units.padding) + 8; 
units.str_value = units.bcursor + 8 « 80 
-» "MILLISEC" 
ж ["\n", units.padding, “MILLISEC"]; 
) 
1 SECONDS 
( 


units.jength = 7; 
units.ecursor s units.bcursor « 7 < 80 
-» units.bcursor « 7 
* len(units.padding) « 7; 
units.str value - units.bcursor « 7 « 80 
-» "SECONDS" 
ж Им”, units.padding, "SECONDS"]; 
) 
| MINUTES 
( 
units.length = 7; 
units.ecursor s units.bcursor + 7 < 80 
-> units.bcursor + 7 
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, expression.str value]; 


# len(units.padding) + 7; 
units.str value - units.bcursor + 7 < 80 
-> "MINUTES" 
зо (["\n", units.padding, "MINUTES"); 
} 
1 HOURS 
( 
units.length - 5; 
unlts.ecursor є units.bcursor + 5 < 80 
-» units.bcursor + 5 
# len(units.padding) + 5; 
units.str_value = units.bcursor + 5 < 80 
-» "HOURS" 
# ["\n", units.padding, "HOURS"]; 
) 
! DAYS 
( 
units.length = 4; 
units.ecursor = units.beursor + 4 < 80 
-» units.bcursor + 4 
* len(units.padding) * 4; 
units.str value - units.bcursor « 4 < 80 
-» "DAYS" 
# [“\п“, units.padding, "DAYS"]; 
) 
| WEEKS 
( 
units.length = 5; 
units.ecursor = units.becursor + 5 < 80 
=> units.bcursor + 5 
# len(units.padding) + 5; 
units.str_vaiue = units.bcursor + 5 < 80 
-» "WEEKS" 
ж [“\п", units.padding, "WEEKS"]; 


operator list 
: operator list operator symbol 
( 
operator list[1].length » operator list[2].length « operator symbol.length; 
operator list[2].bcursor - operator llst[1].bcursor; 
operator ilst[2].padding - operator iist[1].padding; 
operator iist[1].ecursor - operator symbol .ecursor; 
operator symbol.padding - operator list[1].padding; 
operator symbol.bcursor - operator list[2].ecursor; 
operator list[1].str value - [operator list[2].str value, 
operator symbol.str value 1; 


D 
| operator Symbol 
( 
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operator list.iength - operator symbol.iength; 
operator _list.ecursor = operator symbol .ecursor; 
operator symbol.bcursor - operator list.bcursor; 
operator symbol .padding = operator _list.padding; 
operator list.str value » operator symbol.str value; 


operator symbol 
: NOT 
( 

operator symbol.length - 2; 

operator symboi.str vaiue - operator symbol.bcursor + 2 <= 80 
=> 
# ["\n", operator_symbol.padding, “7 71; 

operator _symbol.ecursor = operator symbol .bcursor + 2 <= 80 
-» Operator symbol.bcursor 4 2 
# len(operator symbol.padding) + 2; 


operator symbol.length s 2; 

operator symbol.str value - operator symbol.bcursor + 2 <= 80 
-> "g 
в ["\n", operator_symbol.padding, "& "]; 

operator symbol.ecursor s operator symbol.bcursor « 2 «- 80 
-» Operator symbol.bcursor + 2 
ж len(operator symbol .padding) + 2; 


~ о ~ 
> 


operator symbol.length » 2; 
operator symbol.str value = operator symbol.bcursor + 2 <= 80 
UE 
# [“\n", operator symbol padding, “j "J; 
operator symbol.ecursor = operator _symbol.bcursor + 2 <= 80 
-> operator symbol .bcursor + 2 
ж len(operator symbol .padding) + 2; 
} 
| IMPLIES 
( 
operator symbol.length = 3; 
operator symbol.str value » operator symbol.bcursor + 3 <= 80 
-> "=> " 
* ["\n", operator symbol padding, “=> "1, 
operator symbol.ecursor - operator symbol.bcursor « 3 «- 80 
-» operator symbol.bcursor + 3 


+ len(operator_symbol.padding) + 3; 
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г 


m Dw 


operator symbol.length = 4; 
operator symbol.str value - operator symbol.bcursor + 4 <= 80 


=> <=> 
# ["\n", operator _symbol.padding, “<=> “J; 
operator symbol.ecursor = operator symbo!.bcursor + 4 <= 80 
-> operator _symbol.bcursor + 4 
* len(operator_symbol.padding) + 4; 


operator_symbol.length = 2; 
operator _symbol.str value = operator symbol .beursor + 2 <= 80 


-» « 

# "Хо", орегаїог 5упбої .раддіпд, “< "J; 
орегафог_зутбо|!.есигзог = орегафог _зутбо|.Бсиг$ог + 2 <= 80 

-» Operator symbol.bcursor « 2 

# len(operator symbol .padding) + 2; 


operator symbol.length = 2; 
operator symbol.str_value = operator symbol .bcursor + 2 <= 80 


=> > 
# Им“, operator symbol.padding, "» "1, 
operator symbol.ecursor s operator symbol.bcursor + 2 <= 80 
-> operator symbol.bcursor « 2 
% len(operator symbol .padding) + 2; 


operator symbol.length = 2; 
operator symbol.str value - operator symbol.bcursor « 2 «« 80 


-> “= 
# Им”, орегафог 5упро!.радаіпд, "« "); 

operator symbol.ecursor - operator symbol.bcursor « 2 <= 80 
-» Operator symbol.bcursor + 2 
* len(operator_symbol padding) + 2; 


operator symbol.length - 3; 
operator symbol.str value » operator symbol.bcursor + 3 <= 80 


=> <= 
# [“\п“, operator_symbol.padding, “<= “1, 

operator symbol.ecursor - operator symbol.bcursor « 3 «- 80 
-» Operator symbol.bcursor + 3 
* len(operator symbol.paddIng) 4 3; 


operator symbol.length s 3; 
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operator symbol.str value - operator symbol.bcursor + 3 <= 80 


=> >= 
ж ГМ", operator вутбо! .радд1пд, ">= "1, 
operator symbol.ecursor - operator symbol.bcursor « 3 «- 80 
-» operator symbol.bcursor + 3 
* len(operator symbol.padding) + 3; 


operator symbol.length = 3; 
operator symbol.str value - operator symbol.bcursor « 3 «« 80 


=> иа " 

ж "Хо", operator symbol.padding, “+ “3; 

operator symbol.ecursor = operator _symbol.bcursor + 3 <= 80 
-> operator _symbol.bcursor + 3 


+ len(operator symbol .padding) + 3; 


operator symbol.length = 3; 

operator _symbol.str_ value = operator symbol .bcursor + 3 <= 80 
=> 552 5 
ж ["\n", operator_symbol.padding, "7< "J; 

operator symbol.ecursor = operator_symbol.bcursor + 3 <= 80 
-» Operator symbol.bcursor « 3 


* len(operator symbol.padding) + 3; 


operator symbol.length - 3; 

operator symbol.str value - operator symbol.bcursor + 3 <= 80 
=> nx 3 
.- СМ“, operator symbol.padding, "^» "J; 

operator symbol.ecursor - operator symbol.bcursor % 3 <- 80 
-» Operator symbol.bcursor + 3 


* len(operator_symbol .padding) + 3; 


operator symbol.length = 4; 

operator symbol.str value - operator symbol.bcursor « 4 «« 80 
=> <= 5 
# ["\n", operator_symbol.padding, "<= "]; 

operator symbol.ecursor - operator symbol.bcursor + 4 <= 80 
-» Operator symbol.bcursor « 4 


* len(operator symbol.padding) * 4; 


operator symbol.length = 4; 
operator symbol.str value « operator symbol.bcursor + 4 <= 80 
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=> шиг? 


# ["\n", орегаїог 5упбої .раддіпо, "»- "Її; 

operator symbol.ecursor - operator symbol.bcursor « 4 <= 80 
-» Operator symbol.bcursor 4 4 
* len(operator symbol.padding) + 4; 


operator symbol.length - 3; 
operator symbol.str value - operator symbol.bcursor + 3 <= 80 
=> "== х 
# ["\n", operator _symbol.padding, “== “1; 
operator symbol.ecursor - operator symbol .bcursor + 3 <= 80 
-> operator symbol .bcursor + 3 
% len(operator symbol .padding) + 3; 
) 
| КЕОМ 
{ 
operator symbol.length = 4; 
operator symbol.str value - operator symbol.bcursor + 4 <= 80 
=> цаг " 
# ("м“, operator symbol.paddIng, "^-- "]; 
operator symbol.ecursor » operator symbol.bcursor « 4 <= 80 
-> operator symbol.beursor + 4 
% len(operator_ symbol .padding) + 4; 


operator symbol .length = 2; 

operator symbol.str value = operator _symbol.bcursor + 2 <= 80 
=> "+ 
ж ["\n", operator symbol.padding, “+ “J; 

operator symbol.ecursor - operator symbol.bcursor + 2 <= 80 
-» Operator symbol.bcursor 4 2 


к len(operator symbol.padding) + 2; 


) 
T 
{ 
operator symbol.length = 2; 
operator symbol.str value - operator symbol.bcursor + 2 <= 80 
em *- 
# ["\n", operator symbol .padding, “- “J; 
operator _symbol.ecursor = operator _symbol.bcursor + 2 <= 80 
-> operator symbol .beursor + 2 
# len(operator symbol.padding) + 2; 
| за: 
( 


operator Symbol.length - 2; 


operator symbol.str value - operator symbol.bcursor + 2 <= 80 
ccs ч з - 
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ж ["\n", operator symbol.padding, "* "]; 

operator symbol.ecursor - operator symbol.bcursor « 2 «- 80 
-> operator symbol.bcursor + 2 
# len(operator symbol.padding) + 2; 


operator symbol.length » 2; 
operator symbol.str value - operator symbol.bcursor « 2 «- 80 
ща з 
«. ГМ”, орвгаїог зутбо | .райаїпд, “/ “J; 
орегафог_зутбо|!.есигзог = орегафог _зутбо|.Бсигзог + 2 <= 80 
-» Operator symbol.bcursor + 2 
# len(operator symbol.padding) + 2; 


operator symbol.length - 4; 

operator symbol.str value - operator symbol.bcursor « 4 «- 80 
-» "MOD " 
ж "Хо", operator symbol.padding, "MOD "]; 

operator symbol.ecursor s operator symbol.bcursor + 4 «= 80 
-> Operator symbol.bcursor « 4 
ж len(operator_symbol.padding) + 4; 


operator symbol.length - 3; 

operator symbol.str value - operator symbol.bcursor + 3 <= 80 
-» жЕ" 
и ГМ”, operator symbol.paddIng, "22 "1, 

operator symbol.ecursor - operator symbol.bcursor « 3 <= 80 
-» Operator symbol.bcursor « 3 
* len(operator symbol.padding) « 3; 


~ = ~ 


operator symbol.length - 2; 
operator symbol.str value - operator symbol.bcursor « 2 «- 80 
су? 
# ["\n", operator_symbol.padding, 70 "1; 
operator symbol.ecursor = operator _symbol.bcursor + 2 <= 80 
-» Operator symbol .bcursor + 2 
є len(operator_symbol.padding) + 2; 
) 
| APPEND 
( 
operator symbol.length = 3; 
operator symbol.str value - operator symbol.bcursor + 3 <= 80 
-> "11" 


ж ["\n", operator_symbol.padding, “ii "J; 
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operator symbol.ecursor - operator symbol.bcursor « 3 «- 80 
-> operator symbol.bcursor + 3 
зо len(operator_symbol.padding) + 3; 


operator_symbol.length = 3; 
operator_symbol.str_value = operator_symbol.bcursor + 3 <= 80 
- "ЇМО" 
# ["\n", operator symbol.padding, "IN "); 
operator symbol.ecursor - operator symbol.bcursor « 3 «- 80 
-» Operator symbol.bcursor « 3 
+ len(operator symbol.padding) + 3; 
) 
| ВАКСЕ 
( 
operator symbol.length = 3; 
operator symbol.str value - operator symbol.bcursor « 3 «- 80 
т» .. 
# |"Хп", орегаїог symbol.padding, ".. “1, 
operator_symbol.ecursor = operator symbol .bcursor + 3 <= 80 
-> operator _symbol.bcursor + 3 
* len(operator symbol .padding) + 3; 


operator symbol.length - 2; 
operator symbol.str value - operator symbol.bcursor * 2 «- 80 


" ” 
-» 


ж ("м“, operator symbol.padding, ". "1, 

operator _symbol.ecursor = operator symbol.bcursor + 2 <= 80 
-> operator _symbol.bcursor + 2 
* len(operator_symbo|.padding) + 2; 


operator symbol.length = 2; 

operator symbol.str value = operator symbol.bcursor + 2 <= 80 
= | 
# ["\n", operator symbol .padding, “[ “J; 

operator symbol .ecursor = operator_symbol.bcursor + 2 <= 80 
-> operator_symbol.bcursor + 2 
* len(operator symbol .padding) + 2; 


. 
, 


comment 
: COMMENT comment 
( 
comment[1].str value - comment[1].bcursor == 
-» [COMMENT.Xtext,comment[2].str value] 
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* comment[1].bcursor + 2 + len(COMMENT .%text) <= 80 

-> [" ^", COMMENT.ztext, comment[2].str value] 

ж ["\n", COMMENT .2text, comment[2].str_value]; 
comment{2].bcursor = 0; 
comment[1].length = len(COMMENT .%text) + comment[2]. length; 


Хргес ЗЕМ! 


comment.str value - : 
comment.length - 0; 
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APPENDIX C 


SAMPLE INPUT 1 


FUNCTION square root (precision: real) WHERE precision » 0.0 
MESSAGE(x: real) 
WHEN x >= 0.0 
REPLY(y: real) 
WHERE y >= 0.0 & approximates(y * y, x) 
OTHERWISE REPLY EXCEPTION Imaginary square root 
CONCEPT approximates(rl r2: real) 
-- True If rl is a sufficiently accurate approximation of r2. 
-- The precision is relative rather than absolute. 
VALUE(b: boolean) 
WHERE b <=> abs((r1 - r2) / r2) «» precision 
END 
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SAMPLE OUTPUT 1 


FUNCTION square root(precision : real) 
WHERE precision » 0.0 


MESSAGE (x : real) 
WHEN x >= 0.0 
REPLY (y : real) 
WHERE y >= 0.0 & approximates(y * y, x) 
OTHERWISE 
REPLY EXCEPTION imaginary square root 


CONCEPT approximates(r1 r2 : real) 
-- True if r1 is a sufficlently accurate approximation of r2. 
-- The precislon is relative rather than absolute. 


VALUE (b : boolean) 


WHERE b «-» abs((r1 - r2) / r2) «s precision 
END 
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SAMPLE INPUT 2 


TYPE rationai INHERIT equality(rational) 
MODEL(num den: integer) 
INVARIANT ALL(r: rational :: r.den "= 0) 
MESSAGE ratio(num den: integer) 
WHEN den “= 0 REPLY(r: rational) 
WHERE r.num = num, r.den = den 
OTHERWISE REPLY EXCEPTION zero_denominator 
MESSAGE add(x y: rational) OPERATOR + 
REPLY(r: rational) 
WHERE r.num = x.num * y.den + y.num * x.den, r.den = x.den * y.den 


MESSAGE muitiply(x y: rational) OPERATOR 5 
REPLY(r: rational) 
WHERE r.num = x.num * y.num, r.den = x.den * y.den 


MESSAGE equai(x y: rational) OPERATOR = 
REPLY(b: boolean) 

WHERE b <=> (х.пип * y.den = y.num * x.den) 
END 
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SAMPLE OUTPUT 2 


TYPE rational 
INHERIT equallty(rational) 


MODEL (num den : Integer) 
INVARIANT ALL(r : rational :: r.den "= 0) 


MESSAGE ratio(num den : integer) 
WHEN den ^- 0 
REPLY (r : rational) 
WHERE r.num = num, r.den = den 
OTHERWISE 
REPLY EXCEPTION zero denomlnator 


MESSAGE add(x y : rational) OPERATOR + 
REPLY (r : ratlonal) 
WHERE r.num se x.num * y.den + у.пџт * x.den, r.den - x.den * y.den 


MESSAGE multipiy(x y : rational) OPERATOR * 
REPLY (r : ratlonal) 
WHERE r.num = x.num * y.num, r.den = x.den * y.den 


MESSAGE equal(x y : ratlonal) OPERATOR = 
REPLY (b : boolean) 
WHERE b <=> (x.num * y.den = y.num * x.den) 
END 
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SAMPLE INPUT 3 


MACHINE airiine manager interface STATE (?) INVARIANT ? INITIALLY ? 


MESSAGE add flight(i: flight id, price: money, origin destination: airport, 
departure arrival: time, capacity: nat) WHEN ? —- new filght REPLY done 
TRANSITION ? -- add flight 

OTHERWISE REPLY EXCEPTION flight exists 


MESSAGE drop fiight(i: flight id) WHEN ? -- filght exists | REPLY done 
TRANSITION ? -- remove fiight OTHERWISE REPLY EXCEPTION no_such flight 
MESSAGE new fare(i: flight id, price: money) 


WHEN ? -- fiight exists REPLY done TRANSITION ? -- change fare 
OTHERWISE REPLY EXCEPTION no such flight 
END 
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SAMPLE OUTPUT 3 


MACHINE airlIne manager Interface 


STATE (?) 
INVARIANT ? 
INITIALLY ? 


MESSAGE add flight(i : flight Id, price : 


departure arrival 


WHEN ? -- new flight 

REPLY done 

TRANSITION ? -- add flight 
OTHERWISE 


REPLY EXCEPTION flight exists 


MESSAGE drop flight(i : flight id) 


WHEN ? -- flight exists 

REPLY done 

TRANSITION ? -- remove flight 
OTHERWISE 


REPLY EXCEPTION no_such flight 


MESSAGE new _fare(i : flight_Id, price 


WHEN ? -- flight exists 

REPLY done 

TRANSITION ? -- change fare 
OTHERWISE 


REPLY EXCEPTION no_such fl Ight 
END 


money, origin destination 
: time, capacity : nat) 


: airport, 


: money) 
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SAMPLE INPUT 4 


MACHINE sender STATE(data: sequence{block}) INVARIANT true INITIALLY true 
MESSAGE send(flle: sequence(block)) X WHEN length(file) » 0 

SEND first(b: block) TO receiver WHERE b - file[1] 

TRANSITION data = file 

OTHERWISE REPLY EXCEPTION empty file 


MESSAGE echo(b: block) 

WHEN b - *data[1] & length(*data) > 1 

SEND next(b1: block) TO recelver WHERE bl = data[1] 
TRANSITION *data = b |! data 

WHEN b = *data[1] & length(*data) = 1 

SEND done TO recelver 

SEND done TO sender 

TRANSITION data = [ ] 

OTHERWISE SEND retransmit(b2: block) TO recelver WHERE b2 = data[1) 
MESSAGE done 

TRANSACTION transfer = send ; DO echo OD ; done 

END 


182 


SAMPLE OUTPUT 4 


MACHINE sender 


STATE (data : sequence(block)) 
INVARIANT true 
INITIALLY true 


MESSAGE send(flle : sequence(block)) 
WHEN length(flle) > 0 
SEND flrst(b : block) 
TO recelver 
WHERE b = #11е[1] 
TRANSITION data = #11е 
OTHERWISE 
REPLY EXCEPTION empty flle 


MESSAGE echo(b : block) 
WHEN b - *data[1] & length(*data) » 1 
SEND next(bl : block) 
TO recelver 
WHERE b1 » data[1] 
TRANSITION *data = b !! data 
WHEN b - *data[1] 8 lengtn(*data) = 1 
SEND done 
TO recelver 
SEND done 
TO sender 
TRANSITION data + Г) 
OTHERWISE 
SEND retransmit(b2 : block) 
TO receiver 
WHERE 62 = data[1] 


MESSAGE done 


TRANSACTION transfer = send; DO echo OD; done 
END 
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SAMPLE INPUT 5 


TYPE char INHERIT equal Ity{char} INHERIT Кока! огавг(спаг) 


MODEL (code: nat) -- ASCII codes 
INVARIANT АШ (с: char :: 0 <= c.code «- 127) 


MESSAGE create(n: nat) -- Ilteral ‘a’ = create(97) and so on 

WHEN O <= n <- 127 REPLY(c: char) WHERE c.code з п 

OTHERWISE REPLY EXCEPTION Illegal code 

MESSAGE ordinal(c: char) REPLY(n: nat) WHERE n = c.code 

MESSAGE equal(c1 c2: char) REPLY(b: boolean) WHERE В <-> (с1.сойе = с2.соде) 
MESSAGE less(cl c2: char) REPLY(b: boolean) WHERE b <-> (cl.code « c2.code) 


MESSAGE letter(c: char) REPLY(b: boolean) WHERE b «e» c IN ['a' .. 'z'] | c IN 
ВА E] 


MESSAGE digit(c: char) REPLY(b: boolean) WHERE b <=> c ІМ Г'0" .. "9") 
END 
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SAMPLE OUTPUT 5 


TYPE char 
INHERIT equality{char} 
INHERIT total order{char} 


MODEL (code : nat) -- ASCII codes 
INVARIANT ALL(c : char :: 0 <= с.соде <= 127) 
MESSAGE create(n : nat) -- бега! "а" » create(97) and so on 


WHEN 0 <= п <= 127 
REPLY (c : char) 
WHERE c.code = п 
OTHERWISE 
REPLY EXCEPTION lllegal code 


MESSAGE ordinal(c : char) 
REPLY (n : nat) 
WHERE п = c.code 


MESSAGE equal(c1 c2 : char) 
REPLY (b : boolean) 
WHERE б «з» (cl.code - c2.code) 


MESSAGE less(ci c2 : char) 
REPLY (b : boolean) 
WHERE Б <=> (cl.code « c2.code) 


MESSAGE letter(C : char) 
REPLY (b : boolean) 
КИЕКЕ Ы <> ССГІМ |Шад 724 “СІМГАО, 77 


MESSAGE digit(c : char) 
REPLY (b : boolean) 
WHERE b <=> c IN ['O' .. '9'] 
END 
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SAMPLE INPUT 6 


MACHINE inventory -- assumes that shipping and supplier are other moduies. 
STATE(stock: map(item, integer}) 
INVARIANT ALL(i: item :: stock[i] »- 0) 
INITIALLY ALL(I: Item :: stock[i] - 0) 


MESSAGE receive(i: item, q: integer) -- Process a shipment from a suppiier. 
КНЕК а > 0 
TRANSITION stock[i] » *stock[i] + q 
-- Deiayed responses to backorders are not shown here. 
OTHERWISE REPLY EXCEPTION empty shipment 


MESSAGE order(io: item, qo: integer) 
-- Process an order from a customer. 
WHEN O < до <= stock[io] 
SEND ship(is: Item, qs: integer) TO shipping WHERE is = io, qs = qo 
TRANSITION stock[io] + qo = *stock[io] 
WHEN O « qo » stock[io] SEND ship(is: item, qs: integer) TO shipping 
WHERE is = lo, qs = stock[io] 
SEND back order(ib: Item, qb: integer) TO supplier 
WHERE 10 = 10, qb + qs = qo 
TRANSITION stock[io} = 0 
OTHERWISE REPLY EXCEPTION empty order 
END 
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SAMPLE OUTPUT 6 


MACHINE inventory -- assumes that shipping and supplier are other modules. 


STATE (stock : map(ltem, integer)) 
INVARIANT ALL(I : Item :: stock[I] >= 0) 
INITIALLY ALL(CI : Item :: stock[l] » 0) 


MESSAGE recelve(| : Item, q : Integer) 
-- Process a shipment from a supplier. 


WHEN g > O 
TRANSITION stock[{I] = *stock[I] + q 
-- Delayed responses to backorders are not shown here. 


OTHERWISE 
REPLY EXCEPTION empty shipment 


MESSAGE order(io : Item, qo : Integer) -- Process an order from a customer. 


WHEN O < qo <= stock[io] 
SEND shlp(Is : Item, qs : Integer) 
TO shipping 
WHERE Is = lo, 45 = до 
TRANSITION stock[lo] + qo = *stock[{lo] 
WHEN O < qo » stock[lo] 
SEND ship(Is : Item, as : integer) 
TO shipping 
WHERE is = lo, gs = stock[lo] 
SEND back_order(Ib : Item, qb : Integer) 
TO suppl ler 
WHERE ib = lo, qb + qs = qo 
TRANSITION stock[lo] = 0 
OTHERWISE 
REPLY EXCEPTION empty order 
END 
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SAMPLE INPUT 7 


VIRTUAL TYPE number(t: type) 

INHERIT equal ity{t} 

EXPORT commutative associative distributive 

MODEL 

INVARIANT true 

MESSAGE zero 

REPLY(n: t) 

MESSAGE one 

REPLY(n: t) 

MESSAGE plus(ni n2: t) OPERATOR + 

REPLY(I3: t) 

WHERE ALL(n: t :: n + zero = n), commutative(plus), associative(plus) 
MESSAGE times(n] n2: t) OPERATOR * 

ВЕРГҮ(13: t) 

WHERE ALL(n: t :: n * zero = zero), 

ALL(n: t :: n опе = П), 

commutative(times), assoclative(times), distributive(plus, times) 
CONCEPT commutative(f: FUNCTION) 
VALUE(b: boolean) 

WHERE b «з» бопаіп(Ғ) - 1, t] & range(f) 
Ry INLILIGS We ie s2 Т (ху КК Угу) 
CONCEPT assoclative(f: FUNCTION) 
VALUE(b: boolean) 

WHERE б <=> domain(f) = ГО, t] & range(f) = t 

& ULOS Ww zs te ве (Хе КҮРЕ ИВ (10752752 
CONCEPT distributive(f g: FUNCTION) 

VALUE(b: boolean) 

WHERE б <=> domain(f) = [t, t] & range(f) - 1 

& domain(g) = [t, t] & range(g) = t 

& ALL(x y z: t :: g(x, Fly, Z)) = f(g(x, y), g(x, 2))) 
END 


! 
“+ 
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SAMPLE OUTPUT 7 


VIRTUAL TYPE number(t : type) 
INHERIT equality(t) 
EXPORT commutative associative distributive 


MODEL 
INVARIANT true 


MESSAGE zero 
ВЕВ (0 6 10) 


MESSAGE one 
REPLY (n : t) 


MESSAGE plus(nl n2 : t) OPERATOR + 
БЕРІШ (ІЗ t) 
WHERE ALL(n : t :: n « Zero » n), commutative(plus), assoclative(plus) 


MESSAGE times(n] n2 : t) OPERATOR * 
ВЕРВИИ ЗС) 
WHERE ALL(n : t :: n = zero - zero), ALL(n : t :: n * one = п), 
commutat|ve(times), associative(times), distributive(plus, times) 


CONCEPT commutat|ve(f : FUNCTION) 
VALUE (b : boolean) 
WHERE b 
<=> domaln(f) = [t, t] & range(f) s t 
& ALL(X y : t :: f(x, у) = f(y, 2)) 


CONCEPT assoclative(f : FUNCTION) 
VALUE (b : boolean) 
WHERE b 
<=> domaln(f) = [t, t] & range(f) - t 
ЛУЦЬКОЇ 59 ра я зб 8 ЧОЛО 14075 20) з ШОЛОМ о Зо 2201) 


CONCEPT distributive(f g : FUNCTION) 
VALUE (b : boolean) 
WHERE b 
<=> domaln(f) = [t, t] & range(f) « t & domaln(g) « ГЕ, 
& range(g) = t 
з Кому 2: &:: 00% ГО. 2)) = 0, У), g(x, 2)) 
ЕКО 
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SAMPLE iNPUT 8 


MACHINE airline manager 
INHERIT format 
IMPORT edit flight id money airport time FROM travel agent 


STATE 
INVARIANT true 
INITIALLY true 


MESSAGE (command: string) 
-- command from airiine manager's keyboard 
WHEN add fiight(edit(command), i, price, origin, destination, 
departure, arrivai, capacity) 
SEND add filght(I: filght id, price: money, origin destination: airport, 
departure arrivai: time, capacity: nat) 
TO airline reservation system 
WHEN drop fiight(edit(command), i) 
SEND drop fiight(i: fiight id) 
TO airline reservation system 
WHEN new fare(edit(command), i, price) 
SEND new fare(i: flight id, price: money) 
TO airline reservation system 
OTHERWISE REPLY(s: string) 
WHERE s = “command not recognized" 


-- normal responses 

MESSAGE done SEND(s: string) TO display WHERE s = “done” 
-- error messages 
-- Input formats 


CONCEPT add fiight(command: string, i: fiight_id, p: money, 
od: airport, dep arr: time, cn: nat) 
VALUE(b: boolean) 
WHERE b <=> SOME(cap: string SUCH THAT cn - nat(cap) :: command » list("a", i, p, o, d, 
dep, arr, cap) ) 


CONCEPT drop fiight(command: string, i: filght id) 
VALUE(b: boolean) 
WHERE b <=> command » iist("d", i) 


CONCEPT new fare(command: string, i: filght id, p: money) 
VALUE(b: boolean) 
WHERE b <=> command = iist("n", |, p) 

END 
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SAMPLE OUTPUT 8 


MACHINE airline manager 
INHERIT format 
IMPORT edit flight id money airport time 
FROM travel agent 


STATE 
INVARIANT true 
INITIALLY true 


MESSAGE (command : string) -- command from alriine manager's keyboard 


WHEN add flignt(edit(command), i, price, origin, destination, departure, 
arrivai, capacity) Tw 
SEND add flight(! : flight id, price : money, origin destination 
: airport, departure arrival : time, capacity : nat) 
TO alriine reservation system 
WHEN drop fiight(edit(command), 1) 
SEND drop filght(i : flight 19) 
TO airline reservation system 
WHEN new fare(edit(command), |, price) 
SEND new fare(i : flight id, price : money) 
TO airline reservation system 


OTHERWISE 
REPLY (s : string) 
WHERE 5 = "command not recognized" -- normal responses 


MESSAGE done 
SEND (s : string) 
TO display 
WHERE s = “done” -- error messages 
-- input formats 


CONCEPT add filght(command : string, | : flight id, p : money, o d : airport, 
dep arr : time, cn : nat) 
VALUE (b : boolean) 
WHERE b 
<=> SOME(cap : string SUCH THAT cn = nat(cap) 
:: command s list("a", |, p, o, d, dep, arr, cap)) 


CONCEPT drop filght(command : string, i| : fiight id) 
VALUE (b : boolean) 
WHERE b <=> command = list("d', |) 


CONCEPT new fare(command : string, | : flight id, p : money) 


VALUE (b : boolean) 
WHERE b <=> command s iist("n^, |, р) 
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SAMPLE iNPUT 9 


ТУРЕ unlon($s: type) WHERE distinct(identifiers(s)) 
-- A unlon type Is a tagged disjoint union of a set of types. 
-- Two unlon types are the same Iff they have the same 
-- actual parameters WITH THE SAME FIELD NAMES. 
-- identifiers(s) is the sequence of identifiers used as 
-- field names In the actual parameter list. 


INHERIT equal ity{unlon{$s}} 
IMPORT Identifiers Identifier FROM field names IMPORT distinct FROM sequence{ identifier} 


MODEL(tag: Identifler, value: any) 
INVARIANT АЩ (и: union($s) :: u.tag IN Identifiers(s)), 
ALL(u: union($s) :: u.value IN type of(u.tag)) 


MESSAGE create(id: Identifier) WHERE id iN identifiers(s) (x: any) 
-- jiteral (t :: v} = create(t)(v) 
WHEN x IN type о#(19) REPLY(u: unlon($s)) WHERE u.tag = id & u.vaiue = x 


OTHERWISE REPLY EXCEPTION type error 


MESSAGE is{id: Identifier} WHERE id IN identifiers(s) (u: oneof($s)) 
REPLY(b: boolean) WHERE b <=> u.tag = Id 
-- Check If you have a given variant. 


MESSAGE get{Id: Identifler} WHERE Id IN Identiflers(s) (u: oneof{$s}) OPERATOR . 
WHEN u.tag = 19 
CHOOSE(rt: type SUCH THAT rt = type of(id)) 
REPLY(x: rt) WHERE x = u.value 
OTHERWISE REPLY EXCEPTION type error 
-- Extract the value assuming a given variant, 
-- succeeds only if the tag matches the assumed variant. 


MESSAGE equal(ul u2: union($s)) 
REPLY(b: boolean) 
WHERE b <=> ul.tag = u2.tag & ul.value = u2.value 


CONCEPT type of(id: Identifier) 
WHERE Id IN IdentIflers(s) 
VALUE(t: type) 
-- The type corresponding to the id іп the formal parameter list s. 
WHERE SOME(n: nat :: t » s[n] & Id = identifiers(s)[n]) 
END 
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SAMPLE OUTPUT 9 


TYPE unlon($s: type) 
WHERE distinct(Iidentiflers(s)) 
-- A unlon type Is a tagged disjoint unlon of a set of types. 
-- Two unlon types are the same Iff they have the same 
-- actual parameters WITH THE SAME FIELD NAMES. 
-- Identiflers(s) Is the sequence of Identiflers used as 
-- fleld names In the actual parameter list. 


INHERIT equallty(unlon($s)) 
IMPORT Identifiers Identifler 
FROM fleld names 
IMPORT distinct 
FROM sequence( ident |f ler) 


MODEL (tag : Identifler, value : any) 
INVARIANT ALL(u : union($s) :: u.tag IN Identiflers(s)), 
ALL(u : unlon($s) :: u.value IN type of(u.tag)) 


MESSAGE create(id : Identlfler) 
WHERE id IN Identiflers(s) 
(x : any) -- ега (t :: v) = create(t)(v) 


WHEN x IN type of(lid) 
REPLY (u : unlon($s)) 
WHERE u.tag = Id & u.value = x 
OTHERWISE 
REPLY EXCEPTION type error 


MESSAGE Is{Id : Identifier) 
WHERE id IN identifiers(s) 
(u : oneof($s)) 
REPLY (b : boolean) 


WHERE b <=> u.tag = Id -- Check If you have a glven varlant. 


MESSAGE get(Id : Identifler) 
WHERE Id IN Identiflers(s) 
(u : oneof($s)) OPERATOR . 
WHEN u.tag = Id 
CHOOSE(rt : type SUCH THAT rt = type of(id)) 
REPLY (x : rt) 
WHERE x = U.value 
OTHERWISE 
REPLY EXCEPTION type_error 
-- Extract the value assuming a given variant, 
-- succeeds only If the tag matches the assumed variant. 
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MESSAGE equal(ul u2 : union{$s}) 


REPLY (b : boolean) 
WHERE b <=> ul.tag = u2.tag & ul.value = u2.value 


CONCEPT type of(id : Identifier) 
WHERE id IN |деп | Е!ег5(5) 
VALUE (t : type) 
-- The type corresponding to the Id In the formal parameter list s. 


WHERE SOME(n : nat :: t » s[n] & Id = Identiflers(s){n]) 
END 
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SAMPLE INPUT 10 


MACHINE travel agent interface ^ IMPORT flight FROM airline manager interface 


STATE(reservations: set(reservation), schedule: map(fllght Id, flight)) 
INVARIANT existing fllghts(reservations), no_overbooking(reservatlons) 
INITIALLY reservations = { } 


MESSAGE find flights(orlgin destination: alrport) -- 61.1.1, 61.1.2 
REPLY flights(s: set(flight)) 
WHERE ALL(f: flight :: f IN S «2» f IN range(schedule)& f.orlgin = origin 
& f.destlnation s destination ) 
-- flights from the origin to the destination 
MESSAGE reserve(|: flight id, d: date, p: passenger) -- G1.2 
WHEN | IN schedule & bookIngs(l, d) « schedule[!].capacity 
& ^([Id:: 1, d:: d, p:: p] IN *reservatlons) -- seat avallable 
REPLY done 
TRANSITION reservations = *reservatlons U ([Id:: І, d:: d, р:: р)) 
-- add reservation 
WHEN [id:: |l, d:: d, p:: p] IN *reservatlons 
REPLY EXCEPTION reservation exists 
WHEN ~(i IN schedule) -- unknown #1101 
REPLY EXCEPTION no_such_ flight 
OTHERWISE REPLY EXCEPTION no_seat 
MESSAGE cancel(|: fllght_Id, d: date, p: passenger) -- G1.3 
WHEN | IN schedule & [Id:: |, d:: d, p:: p] IN reservations 
-- reservation found 
REPLY done 
TRANSITION reservations = *reservations - {[Lid:: |, d:: d, p:: p]) 
-- remove reservation 
WHEN ^(i IN schedule) -- unknown flight 
REPLY EXCEPTION no such flight 
OTHERWISE REPLY EXCEPTION no reservation 
CONCEPT existing flights(s: set{reservatlon}) 
VALUE(b: boolean) 
WHERE ALL(r: reservation SUCH THAT r IN s :: r.fllght_id IN schedule) 
CONCEPT no overbookIng(s: set(reservation)) 
VALUE(b: boolean) 
WHERE ALL(I: flight id, d: date SUCH THAT | IN schedule 
:: bookings(i, d) «» schedule[i].capacity ) 
CONCEPT bookIngs(I: filght id, d: date) 
VALUE (n: nat) 
WHERE n » NUMBER(r: reservation 
SUCH THAT r IN reservations &r.id=1&rd=d :: г) 


CONCEPT reservation: type 


WHERE reservation = tuple{id:: fllght_id, d:: date, p:: passenger} 
END 
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SAMPLE OUTPUT 10 


MACHINE travel agent interface 
IMPORT flight 
FROM airiine manager Interface 


STATE (reservatlons : set(reservation), schedule : map(flight id, flight)) 
INVARIANT existing flights(reservations), no overbooking(reservations) 
INITIALLY reservations = {) 


MESSAGE find filghts(origin destinatlon : airport) -- G1.1.1, 61.1.2 


REPLY flights(s : set(fllight)) 
WHERE ALL(f : flight 
Bw е 
<=> f IN range(schedule) & f.origin = origin 
& f.destination = destination) 
-- flights from the origin to the destinatlon 


MESSAGE гезегуе(1 : flight_id, d : date, p : passenger) -- 61.2 


WHEN i IN schedule & bookIngs(i, d) « schedule[ i].capacity 


& "([id :: 1, d :: d, D :: p) iN *reservatlons) -- seat available 
REPLY done 
TRANSITION reservations = *reservations U (fid :: Il, d :: d, p :: p]) 


-- add reservation 

WHEN [Id :: l, d :: d, p :: p] IN *reservations 
REPLY EXCEPTION reservation exists 

WHEN “(i IN Schedule) -- unknown filght 
REPLY EXCEPTION no such flight 

OTHERWISE 
REPLY EXCEPTION no seat 

MESSAGE cancel(i : flight id, d : date, p : passenger) -- 61.3 


WHEN | IN schedule & (Id :: i, d :: d, p :: p] IN reservations 
-- reservation found 


REPLY done 
TRANSITION reservations = *reservations - {{id :: i, d :: d, p :: pj} 
-- remove reservation 


WHEN “(i IN schedule) -- unknown flight 


REPLY EXCEPTION no_such flight 
OTHERWISE 
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REPLY EXCEPTION no reservation 


CONCEPT existing fiights(s : set(reservation)) 
VALUE (b : boolean) 
WHERE ALL(r : reservation SUCH THAT r INS :: r.flight_id IN scheduie) 


CONCEPT no overbooking(s : set(reservation)) 
VALUE (b : boolean) 
WHERE ALL(I : fiight id, d : date SUCH THAT i IN schedule 
:: bookings(i, d) «2» schedulef[ i].capacity) 


CONCEPT bookings(i : flight id, d : date) 
VALUE (n : nat) 
WHERE n 
= NUMBER(r : reservation 
SUCH THAT r IN reservations & r.ld = і & г.а = а :: г) 


CONCEPT reservation: type 


WHERE reservation » tupie(id :: filght id, d :: date, p :: passenger) 
END 
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SAMPLE INPUT 11 


TYPE real 
INHERIT number{real} 
INHERIT total order {real} 


MODEL 
INVARIANT true 


MESSAGE rational to_real(ri: rational) 
-- type conversion operation for mixed mode arithmetic 
REPLY(r2: real) 
WHERE rational! to real(zero) - zero, rational to real(one) = one, 
ALL(x y: rational :: rational to real(x - y) » rational to real(x) - 
rational to real(y)), 
ALL(x y: rational SUCH THAT y ^» zero :: rational to real(x / у) = 
rational to real(x) / rational to real(y)) 


MESSAGE Integer to real(!: Integer) 
-- type conversion operation for mixed mode arithmetic 


REPLY(r: real) 
WHERE r = rational_to_real(Integer to_ratlonalératlonal(!)) 


MESSAGE nat to real(n: nat) 
-- type converslon operation for mixed mode ar|thmet ic 


REPLY(r: real) 
WHERE r » rational to real(nat to rationalerational(n)) 


MESSAGE ratlonal(r: real) 
REPLY(b: boolean) 
WHERE SOME(I: Integer :: r » rational to геаї(1)) 


MESSAGE Integral(r: real) 
REPLY(b: boolean) 
WHERE SOME(I: Integer :: r » Integer to real(1)) 


MESSAGE nat(r: real) 
REPLY(b: boolean) 
WHERE SOME(n: nat :: r » nat to real(n)) 


MESSAGE Zero 
-- Ilteral 0.0 = zero 
REPLY(I: real) 


MESSAGE one 
-- |Iteral 1.0 = опе 
REPLY(I: real) 


MESSAGE minus(r1: real) OPERATOR - 
REPLY(r2: real) 
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WHERE r2 2 0.0 - r1 


MESSAGE plus(r1 r2: real) OPERATOR + 
REPLY(r3: real) 


MESSAGE difference(rl r2: real) OPERATOR - 
REPLY(r3: real) 
WHERE г1 + r2 « r3 


MESSAGE times(ri r2: real) OPERATOR * 
REPLY(r3: real) 


MESSAGE quotient(r1 r2: real) OPERATOR / 
WHEN r2 “= zero 
REPLY(r3: real) 
WHERE r1 » r2 * r3 
OTHERWISE REPLY EXCEPTION divide by zero 


MESSAGE remalnder(r1 r2: real) OPERATOR \ MOD 
WHEN r2 ^- zero 
REPLY(r: real) 
WHERE SOME(q: real :: r1 =q * r2 +r & abs(r2) > r >= zero & integral(q)) 
OTHERWISE REPLY EXCEPTION divide by zero 


MESSAGE expt(r1 r2: real) OPERATOR ** 
WHEN (r1 = 0.0 & r2 <= 0.0) | (r1 « 0.0 & "integral(r2)) 
REPLY EXCEPTION undefined expt 
OTHERWISE REPLY(r3: real) 
WHERE ALL(r: real :: r ** 1.0 = r), ALL(r: real SUCH THAT r > 0.0 :: 0.0 


МУ а 0.0), 
ALL(r x y: real SUCH THAT r > 0.01 r « 0.0 & Integral(x) & integral(y) 
Г (У SUE TU Жу ш) 


MESSAGE equal(r1 r2: real) 
REPLY(b: boolean) 


MESSAGE less(r1 r2: real) 
REPLY(b: boolean) 
WHERE ALL(x y: rational :: rational to real(x) « rational to real(y) «-» x « y), 
ALL(x y 2: real :: X y < X + Z <=> y < 2), 
ALL(x y 2: real SUCH THAT x > 0.0 :: x * y < x * 2 <=> y <2), 
ALL(x y z: real SUCH THAT x < 0.0 :: x * y < x * Z <=> y > 2) 
END 
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SAMPLE OUTPUT 11 


TYPE real 
INHERIT number(rea!) 
INHERIT total order(real) 


MODEL 
INVARIANT true 


MESSAGE rational to real(r! : rational) 
-- type conversion operation for mixed mode arithmetic 


REPLY (r2 : real) 
WHERE rational to real(zero) » zero, rational to real(one) = one, 
ALL(x y : rational 
:: rational to real(x - y) 
» ratlonal to real(x) - ratlonal to real(y)), 
ALL(x y : rational SUCH THAT y ^» zero 
:: rational to real(x / y) 
- rational to real(x) / rational to real(y)) 


MESSAGE Integer to real(| : Integer) 
-- type conversion operation for mixed mode arithmetic 


REPLY (r : real) 
WHERE г - rational to real(Integer to rationalerational(1)) 


MESSAGE nat to real(n : nat) 
-- type conversion operation for mixed mode arithmetic 


REPLY (r : real) 
WHERE r - ratlonal to real(nat to ratlonaleratlonal(n)) 


MESSAGE ratlonal(r : real) 
REPLY (b : boolean) 
WHERE SOME(I : Integer :: г 


rational to real(1)) 


MESSAGE Integral(r : real) 
REPLY (b : boolean) 
WHERE SOME(I : Integer :: r 


Integer to real(i)) 
MESSAGE nat(r : real) 
REPLY (b : boolean) 
WHERE SOME(n : nat :: r » nat to real(n)) 
MESSAGE zero -- literal 0.0 » zero 
REPLY (I : real) 


MESSAGE one -- literal 1.0 є опе 
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REPLY (i : reai) 


MESSAGE minus(r1 : real) OPERATOR - 
REPLY (r2 : reai) 
WHERE r2 = 0.0 - r1 


MESSAGE pius(r1 r2 : reai) OPERATOR + 
REPLY (r3 : real) 


MESSAGE difference(r1 r2 : real) OPERATOR - 
REPLY (r3 : reai) 
WHERE r1 = г2 + гЗ 


MESSAGE times(rl r2 : reai) OPERATOR * 
REPLY (r3 : reai) 


MESSAGE quotient(rl r2 : real) OPERATOR / 
WHEN r2 ^- zero 
REPLY (r3 : real) 
WHERE гї = r2 * r3 
OTHERWISE 
REPLY EXCEPTION divide by zero 


MESSAGE remainder(ri r2 : real) OPERATOR MOD MOD 
WHEN r2 ^» zero 
REPLY (r : real) 
WHERE SOME(q : reai 
: г] = а " г2 + г & abs(r2) » r »» zero & integrai(q)) 
OTHERWISE 
REPLY EXCEPTION divide by zero 


MESSAGE expt(ri r2 : reai) OPERATOR ** 
WHEN (r1 » 0.0 & r2 <= 0.0) | (r1 « 0.0 & "integrai(r2)) 
REPLY EXCEPTION undefined expt 
OTHERWISE 
REPLY (r3 : real) 
WHERE ALL(r : real :: r ** 1.0 =r), 
ALL(r : real SUCH THAT r > 0.0 :: 0.0 ** r = 0.0), 
ALL(r x y : real 
SUCH THAT r > 0.0 |1 г < 0.0 & Integrai(x) & Integrai(y) 
SOP PE OEY г» ху ЗОВ aye) 


MESSAGE equal(ri r2 : real) 
REPLY (b : boolean) 


MESSAGE less(r1 r2 : rea!) 
REPLY (b : boolean) 
WHERE ALL(X y : ratlonai 
:: ratlonal_to_real(x) < ratlonal_to_real(y) <=> x < у), 
ALL(x y Z : real :: X + y < X + Z <=> y < 2), 
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ALL(x y Z : real SUCH THAT x > 0.0 :: Xx * y « хо є Z <=> y « 2), 
ALL(X y Z : real SUCH THAT x < 0.0 :: x * y < x * Z <=> y > 2) 
END 
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SAMPLE INPUT 12 


TYPE complex INHERIT number {complex} 
MODEL(re Im: real) 
INVARIANT true 
MESSAGE real to complex(r: real) 
-- type conversion operation for mixed mode arithmetic 
REPLY(c: compiex) 
WHERE c.re = r, с.Їт = 0.0 
MESSAGE rationai to compiex(r: rational) 
-- type conversion operation for mixed mode arithmetic 
REPLY(c: complex) 
WHERE c = reali to compiex(rationai to realereai(r)) 
MESSAGE integer to compiex(i: integer) 
-- type conversion operation for mixed mode arithmetic 
REPLY(c: compiex) 
WHERE c = reai to compiex(integer to reaiereal(i)) 
MESSAGE nat to compiex(n: nat) 
-- type conversion operation for mixed mode arithmetic 
REPLY(c: compiex) 
WHERE c » reai to compiex(nat to realereal(n)) 


MESSAGE real(c: complex) 
REPLY(b: boolean) 
WHERE b <=> c.im = 0.0 


MESSAGE imaginary(c: compiex) 
REPLY(b: booiean) 
WHERE b <=> c.re = 0.0 


MESSAGE rational(c: complex) 
REPLY(b: boolean) 
WHERE SOME(r: rational :: c » rational to compiex(r)) 


MESSAGE integral(c: compiex) 
REPLY(b: boolean) 
WHERE SOME(i: Integer :: c - integer to сопріех(і)) 


MESSAGE nat(c: compiex) 
REPLY(b: boolean) 
WHERE SOME(n: nat :: c = nat_to_complex(n)) 


MESSAGE zero 
REPLY(c: compiex) 
WHERE c = real_to_compiex(0.0) 


MESSAGE one 

REPLY(c: compiex) 

WHERE c » real to compiex(1.0) 
MESSAGE i 
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REPLY(c: complex) 
WHERE | * | = - one 


MESSAGE conjugate(c1: complex) 
REPLY(c2: complex) 
WHERE c2.re = cl.re, c2.im = -cl.im 


MESSAGE magnitude(c1: complex) 
REPLY(r: real) 
ИНЕНЕ = (21622222 2С2ЇЇ 52224075 


MESSAGE minus(cl: complex) OPERATOR - 
REPLY(c2: complex) 
WHERE c2 = 0.0 - cl 


MESSAGE plus(cl c2: complex) OPERATOR + 
REPLY(c3: complex) 
WHERE c3.re = cl.re + c2.re, c3.im = cl.Im + с2. м 


MESSAGE difference(cl c2: complex) OPERATOR - 
REPLY(c3: complex) 
WHERE cl = c2 + сз 


MESSAGE times(cl c2: complex) OPERATOR * 
REPLY(c3: complex) 
WHERE c3.re = cl.re * c2.re - cl.Im * c2. Im, 
сз.т + с1.ге * с2.!т + с1.|т * с2.ге 


MESSAGE quotlent(cl c2: complex) OPERATOR / 
WHEN c2 “= zero 

REPLY(c3: complex) 

WHERE c1 » c2 * c3 

OTHERWISE REPLY EXCEPTION divide by zero 


MESSAGE expt(cl c2: complex) OPERATOR ** 
WHEN (cl = zero & c2.re <= 0.0) 
REPLY EXCEPTION undef Ined_expt 
OTHERWISE REPLY(c3: complex) 
WHERE ALL(c: complex :: с ** опе = с), ALL(c: complex SUCH THAT c.re > 0.0 :: zero 
** ç= zero), 
ALL(c x y: complex SUCH THAT с ~= zero 
ое сосу, 


MESSAGE equal(c1l c2: complex) 

REPLY(b: boolean) 

WHERE b <=> cl.re = с2.ге & с1. Іп = c2.Im 
END 


205 


SAMPLE OUTPUT 12 


TYPE complex 


INHERIT number {comp lex} 


MODEL (re Im : real) 
INVARIANT true 


MESSAGE real to complex(r : real) 
type converslon operation for mixed mode arithmetic 


REPLY (c : complex) 
ННЕВЕ с.ге + г, с. = 0.0 


MESSAGE rational to complex(r : rational) 
type converslon operatlon for mixed mode arithmetic 


REPLY (c : compiex) 
WHERE c = real to complex(rational to realereal(r)) 


MESSAGE Integer to complex(i : Integer) 
type converslon operation for mixed mode arithmetic 


REPLY (c : complex) 
WHERE c = real to complex(Integer to realeéreal(i)) 


MESSAGE nat to complex(n : nat) 
type conversion operation for mixed mode arithmetic 


REPLY (c : complex) 
WHERE c = real to complex(nat to realereal(n)) 


MESSAGE real(c : complex) 
REPLY (b : boolean) 
WHERE б «с» c.im » 0.0 


MESSAGE lmaginary(c : complex) 
REPLY (b : boolean) 
WHERE b <=> c.re = 0.0 


MESSAGE rational(c : compiex) 
REPLY (b : boolean) 
WHERE SOME(r : rational :: c = rational to complex(r)) 


MESSAGE Integral(c : complex) 
REPLY (b : boolean) 
WHERE SOME(i : Integer :: c = integer to complex(i)) 


MESSAGE nat(c : complex) 
REPLY (b : boolean) 
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WHERE SOME(n : nat :: c - nat to complex(n)) 


MESSAGE zero 
REPLY (c : complex) 
WHERE c = геа! to complex(0.0) 


MESSAGE one 
REPLY (c : complex) 
WHERE c » real to complex(1.0) 


MESSAGE | 
REPLY (c : complex) 
WHERE | * | = -one 


MESSAGE сопјидаїе(с1 : complex) 
REPLY (c2 : complex) 
WHERE c2.re = cl.re, c2.Im » -cl.Im 


MESSAGE magnitude(cl : complex) 
REPLY (r : real) 
ANERE Г = (с.ге **2 +С м2 ** 2) ** 0.5 


MESSAGE minus(cl : complex) OPERATOR - 
REPLY (c2 : complex) 
WHERE c2 = 0.0 - cl 


MESSAGE plus(cl c2 : complex) OPERATOR + 
REPLY (c3 : complex) 
WHERE c3.re = cl.re + c2.re, c3.Im = cl.Im + c2.im 


MESSAGE difference(cl c2 : complex) OPERATOR - 
REPLY (c3 : complex) 
WHERE cl = c2 + c3 


MESSAGE times(cl c2 : complex) OPERATOR = 
REPLY (c3 : complex) 
WHERE c3.re = cl.re * c2.re - cl.Im * c2.im, 
03.1й « cl.re * 2.11: 4 С1.1т 5 с2.Г6в 


MESSAGE quotlent(cl c2 : complex) OPERATOR / 
WHEN c2 ^» zero 
REPLY (c3 : complex) 
WHERE cl = c2 * c3 
OTHERWISE 
REPLY EXCEPTION divide by zero 


MESSAGE expt(cl c2 : complex) OPERATOR ** 
WHEN (cl = zero & c2.re <= 0.0) 
REPLY EXCEPTION undefined expt 
OTHERWISE 
REPLY (c3 : complex) 
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WHERE ALL(c : complex :: c ** one » c), 
ALL(c : complex SUCH THAT c.re » 0.0 :: zero ** c - zero), 
ALL(C x y : complex SUCH THAT c “= zero 
аео 


MESSAGE equal(c1 c2 : complex) 
REPLY (b : boolean) 
WHERE b «ez» cl.re = c2.re & cl.Im s c2.1Im 
END 
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SAMPLE INPUT 13 


TYPE sequence{t: type} 

INHERIT equal ilty{sequence{t}} 

INHERIT total order(sequence(t)) 

EXPORT sorted distinct permutation frequency 
MODEL 

-- generated by (empty, add) 

INVARIANT true 


MESSAGE empty 
-- |Iteral [ ) = empty 
REPLY(s: sequence(t)) 


MESSAGE add(x: t, sl: sequence(t)) 
-- |Iteral [x] = add(x, empty) 

-- |Iteral [x, $s] = add(x, s) 
REPLY(S2: sequence(t}) 


MESSAGE гепоуе(х: t, 51: sequence{t}) 

-- Remove all Instances of x from s. 

REPLY(s2: sequence(t)) 

WHERE ALL(x: t :: remove(x, empty) = empty), 

ALL(x: t, s: sequence(t) :: remove(x, add(x, 5)) = гепоме(х, 5)), 
ALL(X y: t, s: sequence(t) SUCH THAT x ^» y 

:: remove(x, add(y, s)) = add(y, remove(x, s)) ) 


MESSAGE append(s1 s2: sequence({t}) OPERATOR |! 

-- literal Г551, 552) - аррепа(51, 52) 

REPLY(s2: sequence(t)) 

WHERE ALL(s: sequence(t) :: append(empty, $) = $), 
ALL(x: t, s1 s2: sequence(t) 

:: append(add(x, s1), s2) » add(x, append(sl, s2)) ) 


MESSAGE fetch(s: sequence(t), n: nat) OPERATOR [ 
-- fetch(s, п) = $[п) 
ИНЕМ 1 <= П <= length(s) 
REPLY(x: t) 
WHERE ALL(x: t, s: sequence(t) :: fetch(add(x, s), 1) = x), 
ALL(n: nat, x: t, s: sequence(t) SUCH THAT n » 1 
: fetch(add(x, s), n) = fetch(s, n - 1) ) 
OTHERWISE REPLY EXCEPTION bounds error 


MESSAGE fetch(sl: sequence(t), 52: sequence(nat)) OPERATOR [ 
REPLY(s3: sequence(t)) 

WHERE length(s3) = length(s2), 

ALL(n: nat SUCH THAT n IN domaln(s2) :: $3[п) = $1[$2[п]]) 


MESSAGE length(s: sequence(t)) 
REPLY(n: nat) 
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WHERE iength(empty) = 0, 
ALL(x: t, s: sequence(t) :: iength(add(x, s)) = length(s) + 1) 


MESSAGE domain(s: sequence(t)) 
REPLY(d: set(nat)) 
WHERE d = (1 .. iength(s)) 


MESSAGE member(x: t, s: sequence(t)) OPERATOR IN 
REPLY(b: booiean) 
WHERE b <=> SOME(n: nat SUCH THAT n IN domain(s) :: s[n] = X) 


MESSAGE едиаї (51 $2: sequence(t)) 
REPLY(b: booiean) 
WHERE b <=> ALL(n: nat :: $1[п] = $2[п]) 


MESSAGE iess(sl s2: sequence(t)) 

-- lexicographic ordering (dictionary ordering on strings) 
WHEN has operation(t, iess) & partial ordering(iesset) 
REPLY(b: booiean) 

WHERE ALL(s: sequence(t), x: t :: [ ) « [x, $s)), 

ALL(s1 s2: sequence{t}, x1 x2: t 

:: [x1, $81] < [x2, $52] <=> x1 < x2 | x1 = x2 & S1 < 82 ) 
OTHERWISE REPLY EXCEPTION operation not appilcabie 


MESSAGE subsequence(s1 s2: зедиепсе{{}) 

REPLY(b: boolean) 

-- True if the elements of si are embedded іп 52, in the same order. 
WHERE ALL(s: sequence{t} :: subsequence([ ], $)), 

АП. (51 s2: sequence(t), x: t :: subsequence([x, 551), 52) 

<=> SOME(S3 s4: sequence({t} 

:: $2 = [$s3, x, $s4] & subsequence(sl, 54) )) 


MESSAGE intervai(x1 x2: t) OPERATOR .. 

WHEN subtype(t, total order) 

REPLY(s: sequence(t)) 

WHERE sorted(iess)(s) & ALL(x: t :: x iN s <=> x1 <= x <= x2) 
OTHERWISE REPLY EXCEPTION operation not appiicabie 


MESSAGE appiy(f: FUNCTION, sl: sequence{t}) 

WHEN domaln(f) = [t] 

CHOOSE(rt: type SUCH THAT rt = range(f)) 

REPLY(s2: sequence(rt)) 

WHERE iength(s2) » iength(s1), 

ALL(n: nat SUCH THAT n IN domain(sl) :: s2[n] » f(sl[n])) 
OTHERWISE REPLY EXCEPTION type error 


MESSAGE reduce(f: FUNCTION) 

WHERE domain(f) « [t, t] & range(f) » t 
& SOME(x: t :: ALL(y: t :: f(y, X) + у)) 
(s: sequence(t)) 

REPLY(x: t) 
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WHERE IF s = [ ) THEN ALL(y: t :: f(y, X) » y) 
ELSE x « f(s[1], гедисе(5[2 .. length(s)], f)) FI 


CONCEPT sorted(le: FUNCTION) WHERE total order ing(le) 

(s: sequence(t)) 

VALUE(b: boolean) 

WHERE b <=> ALL(n1 n2: nat SUCH THAT 1 «s n1 « n2 «- length(s) 
:: le(s[n1), s[n2)) ) 


CONCEPT distinct(s: sequence(t)) 

VALUE(b: boolean) 

WHERE b <=> ALL(nl n2: nat SUCH THAT 1 <= n1 « n2 <= length(s) 
:: 5(011 = 5[п2] ) 


CONCEPT permutatlon(s1 s2: sequence{t}) 
VALUE(b: boolean) 
WHERE b «s» ALL(X: t :: frequency(x, $1) = frequency(x, 52)) 


CONCEPT frequency(x: t, $: sequence{t}) 

VALUE(n: nat) 

WHERE п = NUMBER(K: nat SUCH THAT s[k] = x :: К) 
END 
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SAMPLE OUTPUT 13 


TYPE sequence{t : type) 
INHERIT equal lty{sequence{t}} 
INHERIT total order {sequence (t}} 
EXPORT sorted distinct permutation frequency 


MODEL | -- generated by (empty, add) 
INVARIANT true 

MESSAGE empty -- literal [ ] = empty 
REPLY (s : sequence(t)) 


MESSAGE add(x : t, s1 : sequenceft)) -- llteral [x] = add(x, empty) 
-- |Iteral Гх, $s] = add(x, 5) 


REPLY (s2 : sequence{t}) 


MESSAGE remove(x : t, sl : sequence(t)) 
-- Remove all Instances of x from 5. 


REPLY (s2 : sequence{t}) 
WHERE ALL(X : t :: remove(x, empty) = empty), 
ALL(X : t, S : Sequence{t} 
:: remove(x, add(x, s)) = гепоуе(х, 5)), 
ALL(X y : t, S : sequence(t) SUCH THAT x ^» y 
:: remove(x, add(y, s)) = add(y, remove(x, s))) 


MESSAGE аррепа(51 52 : sequence{t}) OPERATOR || 
-- |Iteral [$s1, 552] = аррепд(51, 52) 


REPLY (s2 : sequence(t)) 
WHERE ALL(s : sequence(t) :: append(empty, $) = $), 
ALL(x : t, s1 s2 : sequence(t) 
:: append(add(x, 51), 52) - add(x, append(sl, s2))) 


MESSAGE fetch(s : sequenceft), п : nat) OPERATOR [ -- fetch(s, n) = s[n] 


WHEN 1 <= n <= length(s) 
REPLY (x : t) 
WHERE ALL(X : t, s : sequence(t) :: fetch(add(x, S), 1) 
ALL(n : nat, x : t, s : sequence(t) SUCH THAT n > 
:: fetch(add(x, s), n) » fetch(s, n - 1)) 


2 dg 
1 


OTHERWISE 
REPLY EXCEPTION bounds error 


MESSAGE fetch(s! : sequence{t}, s2 : sequence{nat}) OPERATOR [ 
REPLY (s3 : sequence(t)) 
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WHERE length(s3) = length(s2), 
ALL(n : nat SUCH THAT n IN domaln(s2) :: s3[n] » sl[s2[n]]) 


MESSAGE length(s : sequence(t)) 
REPLY (n : nat) 
WHERE length(empty) = 0, 
ALL(X : t, S : Sequence{t} :: length(add(x, s)) = length(s) + 1) 


MESSAGE domaln(s : sequence(t)) 
REPLY (d : set(nat)) 
WHERE а = (1 .. length(s)) 


MESSAGE member(x : t, s : sequence(t)) OPERATOR IN 
REPLY (b : boolean) 
WHERE b «s» SOME(n : nat SUCH THAT n IN domain(s) :: s[n] = x) 


MESSAGE equal(s1 s2 : sequence(t)) 
REPLY (b : boolean) 
WHERE b <=> ALL(n : nàt :: si[n] « 52(п1) 


MESSAGE 1е55(51 52 : sequence(t)) 
lexicographic ordering (dictionary order Ing on strings) 


WHEN has operation(t, less) & partial order ng(lesset) 
REPLY (b : boolean) 
WHERE ALL(s : sequence(t), x : t :: [J] « (x, 851), 
АШ (81 52 : sequence(t), x1 x2 : t 
:: (xl, $s1] < [x2, $s2] <=> x1 < x2 ! x1 = x2 & $1 < 52) 
OTHERWISE 
REPLY EXCEPTION operation_not_applicable 


MESSAGE subsequence(s1 52 : sequence{t}) 
REPLY (b : boolean) 
True If the elements of s! are embedded In s2, In the same order. 


WHERE ALL(s : sequence(t) :: subsequence([], s)), 
А11 (51 52 : sequence(t), x : t 
:: Subsequence([x, 551), 52) 
<=> 50МЕ(53 s4 : sequence(t) 
: $2 = [$s3, x, $s4] & subsequence(s1, s4))) 


MESSAGE Interval(x1 x2 : t) OPERATOR .. 
WHEN subtype(t, total order) 
REPLY (s : sequence{t}) 
WHERE sorted(less)(s) & ALL(X : t :: x IN S «e» x1 «» x «- x2) 
OTHERWISE 
REPLY EXCEPTION operation not applicable 


MESSAGE apply(f : FUNCTION, s1 : sequence(t)) 


WHEN domaln(f) » [t] 
CHOOSE(rt : type SUCH THAT rt = range(f)) 
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REPLY (s2 : sequence(rt)) 
WHERE length(s2) = length(s!), 
ALL(n : nat SUCH THAT n IN domain(s1) :: s2[n] = #(51[п])) 
OTHERWISE 
REPLY EXCEPTION type error 


MESSAGE reduce(f : FUNCTION) 
WHERE domaln(f) - [t, t] & range(f) =t 
& SOME(X : t :: ALL(y : t :: f(y, х) = у)) 
(S : sequence(t)) 
REPLY (x : t) 
WHERE ЈЕ 5 = [] 
THEN ALL(y : t :: f(y, х) = у) 
ELSE х + f(s[1], reduce(s[2 .. length(s)], f)) FI 


CONCEPT sorted(le : FUNCTION) 
WHERE total ordering(le)(s : sequence(t)) 
VALUE (b : boolean) 
WHERE b 
<=> ALL(nl n2 : nat SUCH THAT 1 <= n] < n2 <= length(s) 
:: le(s[n1], s[n2])) 


CONCEPT distinct(s : sequence(t)) 
VALUE (b : boolean) 
WHERE b 
<=> ALL(n1 n2 : nat SUCH THAT 1 <= nl « n2 <= length(s) 
:: S[nl1] ^s s[n2]) 


CONCEPT permutation(sl s2 : sequence(t)) 
VALUE (b : boolean) 
WHERE b <=> ALL(x : t :: frequency(x, s1) = frequency(x, s2)) 


CONCEPT frequency(x : t, s : sequence(t)) 
VALUE (n : nat) 
WHERE n = NUMBER(K : nat SUCH THAT s[k] = x :: k) 
END 


214 


SAMPLE INPUT 14 


MACHINE airline reservation system 

STATE(fI: map(filght id, fiight), res: set(reservation)) 
INVARIANT ALL(r: reservation :: r IN res => r.id IN fi) 
INITIALLY domain(fi) = { ), res = ( ) 


-- Interface to the travel_agent 
MESSAGE get filght info 
(from to: city, earliest departure lastest arrival: time) 
REPLY(s: set(fiight)) 
WHERE ALL(f: flight 
:: f IN s <=> f.origin = from & f.destination = to & 
f.departure >= earliest departure & f.arrival <= latest_arrival ) 


MESSAGE reserve(name: passenger, id: fiight id, day: date) 

WHEN id IN fi & number res(id, day, res) « fi[id].capacity & "has res(name, Id, day, res) 

REPLY(s: set(seat Id)) 

WHERE ALL(si: seat id :: si iN s «2» unassigned(si, id, day, res) ) 

TRANSITION SOME(r: reservation 
SUCH THAT r.who = name & r.id = Id & r.when = day & r.seat = | 
:: res = union(*res, (r))) 

WHEN id iN fi & has res(name, id, day) 

REPLY EXCEPTION previous reservation 

WHEN "(id IN fi) 

REPLY EXCEPTION invalid fiight id 

OTHERWISE REPLY EXCEPTION no seats avaliabie 

MESSAGE cancei reservation(id: flight id, day: date, name: passenger) 

WHEN id iN f| & has res(name, Id, day, res) 

REPLY(confirmation: string) 

WHERE confirmation = "reservation cancei ied" 

TRANSITION res = *res - {find_res(id, day, name, res)} 

WHEN ~Cid IN fi) 

REPLY EXCEPTION invaiid fiight id 

OTHERWISE REPLY EXCEPTION no such reservat lon 


MESSAGE assign seat 

(id: flight id, day: date, name: passenger, seat: seat id) 
WHEN has res(name, id, day, res) & unassigned(seat, id, day, res) 
REPLY(confirmation: string) 
TRANSITION find res(id, day, name, res).seat = seat 
WHEN has res(name, id, day, res) & "unassigned(seat, id, day, res) 
REPLY EXCEPTION seat not avaiiabie 
OTHERWISE REPLY EXCEPTION no such reservat ion 


-- interface to the airiine manager 

MESSAGE update price(id: flight id, price: money) 
WHEN id iN fi 

REPLY(confirmation: string) 

TRANSITION fi[id].price = price 
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OTHERWISE REPLY EXCEPTION no such flight 


MESSAGE add flight(id: flight Id, origin destination: airport, 

departure arrival: time, capacity: integer, price: money) 
WHEN ^(Id IN f1) 
REPLY(conflrmation: string) 
WHERE confirmation = “flight added" 
TRANSITION FIL id] = createefilght(ld, orlgin, destination, departure, 

arrival, capacity, price) 

OTHERWISE REPLY EXCEPTION flight already exists 


MESSAGE drop filght(Id: #1167 id) 

WHEN Id IN fl 

REPLY(confirmation: string) 

WHERE confirmation = “flight dropped” 
TRANSITION #1014] + | 

OTHERWISE REPLY EXCEPTION no such flight 


-- concepts 
CONCEPT number res(Id: flight id, d: date, rs: set(reservation)) 
VALUE(n: Integer) 
-- the number of reservations held for fiight id on day d 
WHERE SOME(s: set{reservatlon} SUCH THAT 
ALL(r: reservation :: r IN S <=> г IN rs & r.when = day & r.flight = id ) 
:: N = slze(s) ) 


CONCEPT has res(name: passenger, Id: fllght Id, day: date, rs: setí(reservation)) 
VALUE(b: boolean) 
-- true |f the passenger holds a reservation on day for flight Id 
WHERE b «-» SOME(r: reservation 
SUCH THAT r.who - name & r.flight = id & r.when = day 
:r INrs) 
CONCEPT unassiIgned(sl: seat_id, Id: flight id, day: date, rs: set(reservatlon)) 
VALUE(b: boolean) 
-- true |+ no one holds a reservatlon for seat si on day for id 
WHERE b <=> ALL(r: reservation 
SUCH THAT r.seat = sl & r.flight = id & r.when = day 
:: (г IN rs) ) 
CONCEPT reservatlon: type 
WHERE reservation - tuple(who :: passenger, when :: date, ld :: flight id, 
Seat :: 5841 14) 
CONCEPT city: type 
CONCEPT flight id: type WHERE flight id » string 
CONCEPT passenger: type WHERE passenger = string 
CONCEPT date: type CONCEPT seat 1а: type WHERE seat Id = string 
CONCEPT money: type CONCEPT alrport: type WHERE airport = string 
END TYPE fiight MODEL(?) INVARIANT ? END 
TYPE time INHERIT total order — MODEL(?) INVARIANT ? END 
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SAMPLE OUTPUT 14 


MACHINE alrline reservation system 


STATE (f| : map(flight id, flight), res : set(reservation)) 
INVARIANT ALL(r : reservatlon :: r IN res => r.id IN fi) 
INITIALLY domaln(fl) = {}, res = {} -- Interface to the travel agent 


MESSAGE get filght info(from to : city, earliest departure lastest arrlval 
: time) 

REPLY (s : set(fllght)) 
WHERE ALL(f : flight 
:: f INS 

<=> f.orlgin = from & f.destination = to 

& f.departure >= earliest_departure 

& f.arrival «s» latest arrival) 


MESSAGE reserve(name : passenger, ld : flight id, day : date) 
WHEN Id IN fl & number res(ld, day, res) « fl[id].capaclty 
& "has res(name, id, day, res) 
REPLY (s : set(seat 19)) 
WHERE ALL(sI : seat Id :: SI IN s «-» unassigned(si, Id, day, res)) 
TRANSITION SOME(r : reservation 
SUCH THAT r.who = name & r.id 
& r.seat = | :: res 
WHEN id IN f| & has_res(name, Id, day) 
REPLY EXCEPTION previous reservation 
WHEN "(Id IN fI) 
REPLY EXCEPTION Invalid flight Id 
OTHERWISE 
REPLY EXCEPTION no seats avallable 


Id & r.when = day 
unlon(*res, (r))) 


MESSAGE cancel reservation(Id : filght id, day : date, name : passenger) 
WHEN Id IN f| & nas res(name, Id, day, res) 
REPLY (confirmation : string) 
WHERE confirmation = "reservatlon cancelled” 
TRANSITION res = *res - {find res(id, day, name, res)} 
WHEN “(Id IN fl) 
REPLY EXCEPTION Invalid flight 1а 
OTHERWISE 
REPLY EXCEPTION no such reservat lon 


MESSAGE assign seat(Id : flight id, day : date, name : passenger, seat 
: seat 14) 
WHEN has res(name, ld, day, res) & unassigned(seat, Id, day, res) 
REPLY (conflrmation : string) 
TRANSITION find res(id, day, name, res).seat - seat 
WHEN has res(name, Id, day, res) & "unasslgned(seat, ld, day, res) 
REPLY EXCEPTION seat not available 
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OTHERWISE 
REPLY EXCEPTION no such reservation 
-- Interface to the alrline manager 


MESSAGE update price(id : flight id, price : money) 
WHEN id IN fl 
REPLY (confirmation : string) 
TRANSITION РІГІа).ргісе з ргісе 
OTHERWISE 
REPLY EXCEPTION no such flight 


MESSAGE add flight(id : filght id, origin destination : airport, departure 
arrival : time, capacity : integer, price : money) 
WHEN ^(Id IN f1) 
REPLY (conflrmation : string) 
WHERE confirmation = "filght added" 
TRANSITION 411141 
- createeflight(id, origin, destination, departure, arrival, 
capacity, price) 
OTHERWISE 
REPLY EXCEPTION flight already exists 


MESSAGE drop fllght(id : flilight id) 
WHEN Id IN fi 
REPLY (confirmation : string) 
WHERE confirmation = "flight dropped” 
TRANSITION 411141 » ! 
OTHERWISE 
REPLY EXCEPTION no_such flight -- concepts 


CONCEPT number res(id : flight id, d : date, rs : set{reservation}) 
VALUE (n : Integer) 
-- the number of reservations held for flight id on day d 


WHERE SOME(s : set(reservatlon) 
SUCH THAT ALL(r : reservation 
es ip UNS 
<=> Г IN rs & r.when = day & r.flight = Id) 
:: п = 5126(5)) 


CONCEPT has res(name : passenger, 19 : filght id, day : date, rs 
: Set(reservation)) 
VALUE (b : boolean) 
-- true If the passenger holds a reservation on day for filght Id 


WHERE b 
<=> SOME(r : reservation 
SUCH THAT r.who = name & r.flight = id & r.when = day 
: r IN rs) 
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CONCEPT unassigned(si : seat Id, id : flight id, day : date, rs 
: set(reservation)) 
VALUE (b : boolean) 
true |f no one holds a reservation for seat si on day for 19 


WHERE b 
<=> ALL(r : reservation 
SUCH THAT r.seat = sl & r.flight = Id & r.when = day 
:: C(r IN rs)) 


CONCEPT reservation: type 
WHERE reservation 
= tuple{who :: passenger, when :: date, 
seat 1а) 


CONCEPT city: type 


CONCEPT flight Id: type 
WHERE flight id = string 


CONCEPT passenger: type 
WHERE passenger = string 


CONCEPT date: type 


CONCEPT seat_Id: type 
WHERE seat_Id = string 


CONCEPT money: type 


CONCEPT alrport: type 
WHERE alrport = string 


ТУРЕ filght 


MODEL (7) 
INVARIANT ? 


TYPE time 


INHERIT total_order 


MODEL (?) 
INVARIANT ? 
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d :: flight_Id, seat :: 
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